Drucken
19.11.2005 22:56:33
Sepp
wie kann ich den Code so abändern das er mir erst die eine Seite druckt und dann nach den bestätigen die nächste? Jetzt fängt er erst zum Drucken an wenn ich alles Bestaätigt habe.
Private Sub cmd_Drucken_Click()
Dim Rückgabewert As Byte
Rückgabewert = MsgBox("Möchten Sie die Bewerbung drucken? Ist Sie richtig eingelegt?", vbYesNo + vbInformation, "Info")
If Rückgabewert = 6 Then
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Else
Exit Sub
End If
MsgBox "Ist die erste Seite gedruckt? Bereit?", vbOKOnly + vbInformation, "Hinweis"
Rückgabewert = MsgBox("Legen Sie die Bewerbung andersherum ein!", vbYesNo + vbExclamation, "Info")
If Rückgabewert = 6 Then
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="2", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Else
Exit Sub
End If
End Sub
Anzeige