Datum fortlaufend drucken mit Duplexdruck
28.10.2005 10:46:01
djjk@gmx.de
Habe in Excel ein Formular erstellt, ich muss das Formular immer gleich mit wechseldem Datum ausdrucken. Das mit dem Datum habe ich in Googel gefunden und funktioniert prima. Jedoch muß ich die Seiten als Duplex-Druck ausdrucken.
Mit dem jetzigen verwendeten Makro wird für jede einzelne Seite ein einzelner Druckauftrag erstellt, daher geht es mit der jetzigen Lösung nicht.
Kann mir jemand weiterhelfen, habe mich das erstemal an Makros rangewagt?
Vielen Dank im voraus
Jenne
(Nebenfrage: Ist es möglich die Sonntage wegzulassen?)
Mein zurzeit verwendetes Makro:
Sub drucken_mit_datum()
Dim rng As Range
Dim iAnz As Integer
Dim iCnt As Integer
Set rng = Range("A1")
Do
iAnz = Application.InputBox("Bitte anzahl der Kopien angeben!" & vbLf & _
"( 1 bis 2 )", "Anzahl!", 2, Type:=1)
If iAnz = False Then Exit Sub
If iAnz > 0 And iAnz < 3 Then Exit Do
Loop
For iCnt = 1 To iAnz
ActiveSheet.PrintOut
rng = rng + 1
Next
End Sub