Changer le texte en-tête lors de l’impression à l’aide VBA dans Microsoft Excel
Question:
Comment Changer le texte de l’en-tête lors de l’impression.
Placez le code ci-dessous dans un module normal.
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