für manfred
13.01.2004 18:01:35
chris-ka
Sub druckenmehrfach()
For i = 1 To 3 'hier anpassen wieviele seiten
ActiveSheet.PageSetup.CenterFooter = "Seite " & i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
gruß
chris