Hallo Forum,
aus einem Excel-Makro drucke ich zwei einzelne Word-Seiten aus:
Word.Application.PrintOut Filename:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1-1", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Anfrage = MsgBox("Bitte die ausgedruckte Seite umdrehen!")
Word.Application.PrintOut Filename:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2-2", PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
Zwischen den Seiten ergeht eine Useraufforderung.
Kann man irgendetwas auf dem passieren lassen, um dem Anwender zu zeigen, das Programm arbeitet noch?
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Albrecht Grohn