|
Sub Drucken3Exemplare()
'ActiveDocument.PrintOut Copies:=3, Background:=True, Collate:=True
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=3, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
'Background = Hintergrund, Collate = Alle Seiten eines Exemplars drucken,
'dann mit nächstem Exemplar beginnen
|