Re: Eine Seite x-mal ausddrucken mit Nummer x im Kopf
16.12.2002 09:13:18
Hajo_zi
Hallo Michaeleine Seite 20x Drucken, Seite 1 von 20; 2 von 20 usw.
Sub DruckeUndZaehle()
Dim VarPrints As Variant, intI As Integer, intK As Integer
'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel
Exit Sub
ElseIf CInt(VarPrints) > 0 Then
intK = CInt(VarPrints)
For intI = 1 To intK Step 1
With ActiveSheet.PageSetup
.CenterFooter = "Seite " & intI & " von " & intK
End With
ActiveSheet.PrintPreview 'zeigt die Vorschau an, ggf. deaktivieren.
'ActiveSheet.PrintOut 'druckt direkt wenn Zeile aktiviert.
Next intI
End If
End Sub
Gruß Hajo