ich möchte im Excel die selbe Seite 150 mal ausdrucken. Die Seiten sollen aber von 1 - 150 durchnummeriert werden. Kann mir jemand bitte sagen wie ich das hinbekomme?
vielen Dank im Vorraus
Andrea H.
Sub Drucken()
Dim ws As Worksheet, i%
Set ws = ThisWorkbook.Worksheets("Test")
Application.ScreenUpdating = False
For i = 1 To 150
ws.PageSetup.RightFooter = "&""Arial,Kursiv""&10 " & i
ws.PrintOut
Next i
Set ws = Nothing
Application.ScreenUpdating = True
End Sub
Sub Drucken()
Dim ws As Worksheet, i%
Set ws = ThisWorkbook.Worksheets("Test")
Application.ScreenUpdating = False
For i = 1 To 150
ws.Range("D45").Value = i
ws.PrintOut
Next i
Set ws = Nothing
Application.ScreenUpdating = True
End Sub