Auto-Nummerieren (mit Datum) beim Druck
17.04.2013 17:10:58
Johan
ich möchte eine Tabelle mehrmals ausdrucken. Beim Ausdruck soll jede Seite entsprechend der Printanzahl auto-nummeriert (mit Datum) werden. Beispiel:Tabelle 1 soll 4 ausgedruckt werden. Beim ersten Ausdruck steht das aktuelle Datum, beim zweiten Ausdruck -aktuelle Datum + 1 Tag, usw...
________________________________________________________
Ich habe folgenden Code verwendet:
Private Sub CommandButton1_Click()
anzahl = InputBox("Anzahl Druckformulare?")
For i = 1 To anzahl
ActiveSheet.Range("b2") = ActiveSheet.Range("b2") + (i - 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub
_________________________________________________________
Nun mein Problem: der erste und zweite Ausdruck erscheinen wie gewünscht. Beim 3 Ausdruck kommen 2 Tage -anstatt 1 Tag- hinzu. Beim 4 Ausdruck kommen 3 Tage - anstatt 1- hinzu, usw..
Könnt ihr mir weiterhelfen? Was habe ich falsch gemacht?
Beste Grüße
Johan
Anzeige