Câu hỏi:

Cách Thay đổi văn bản trong tiêu đề khi in.

Đặt mã bên dưới vào một Mô-đun thông thường.

Sub VariableRow()

Dim intCount As Integer, intCounter As Integer

Range("A1").Select

intCount = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(50),1)")

Sheet1.PageSetup.PrintTitleRows = "1:1"

For intCounter = 1 To intCount

Range("A1").Value = "RepetitionLine " & intCounter & ". Page"

ActiveSheet.PrintOut from:=intCounter, to:=intCounter

Next intCounter

Range("A1").Value = "RepetitionLine"

End Sub