Ändern Sie Text in der Kopfzeile beim Drucken VBA in Microsoft Excel mit
Frage:
So ändern Sie den Text in der Kopfzeile beim Drucken.
Platzieren Sie den folgenden Code in einem regulären Modul.
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