Ich will 2 Seiten drucken, und zwar eine Vorder- und eine Rückseite. Bisher musste ich Drucken Seite 1 OK dann warten bis gedruckt, Blatt umgekehrt einlegen Drucken Seite 2 OK. Nachdem mir dies ab zu blöd ist, habe ich mir gedacht schreibst ein Makro:
Sub drucken
Application.PrintOut Range:=wdPrintFromTo, From:=1, To:=1, Item:= wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
MsgBox "Bitte gedruckte Seite umgekehrt einlegen..."
Application.PrintOut Range:=wdPrintFromTo, From:=2, To:=2, Item:= wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
Word und Excel machen aber folgendes:
Der erste Aufruf Application erzeugt einen Druckjob, den man über den Druckerspooler auch sehen kann, nur gedruckt wird er nicht und steht auf warten. Erst wenn ich die Messagebox wegklicke und der zweite Aufruf Application läuft und das Makro beendet wird, schließt auch der Druckjob und wird erst dann an den Drucker geschickt. Weiss jemand von Euch, wie ich zwischendurch den Druckjob abschließen und an den Drucker senden kann, ohne dass das Makro beendet werden muss? (Hab auch schon versucht, dieses obige Makro in 2 Makros zu splitten mit der Hoffnung dass es nur daran liegt, das in einem aktiven Makro nicht abgeschlossen werden kann, hat aber auch nicht funktioniert)