Nochmals Druckmakro
WalterK
nochmals eine Frage zu meinem Druckmakro. Den Teil ab "With ActiveSheet" habe ich selbst dazugewurstelt.
Nach der MSG-Box kommt der Druckerdialog und da klappt es noch nicht ganz:
1.) Wenn ich im Druckerdialog einen anderen als den Standard-Drucker auswähle, passiert zuerst einige Zeit nichts und dann wird trotzdem mit dem Standard-Drucker gedruckt.
2.) Wenn ich Abbrechen anklicke, wird trotzdem gedruckt.
Sub BlattEins()
Dim strActP As String, blnPrint As Boolean
strActP = Application.ActivePrinter
blnPrint = True
If MsgBox("Ihr aktiver Drucker ist: " & strActP & vbLf & _
"Möchten Sie die Druckaufträge mit diesem Drucker ausführen und haben Sie die ABNr erfasst _
bzw. überprüft?", _
vbInformation + vbYesNo, "Drucken") = vbNo Then
blnPrint = Application.Dialogs(xlDialogPrinterSetup).Show
End If
' If blnPrint Then ActiveSheet.PrintPreview
Application.ActivePrinter = strActP
With ActiveSheet
.PageSetup.PrintArea = "A4:P47"
.PageSetup.Orientation = xlPortrait
.PrintOut
End With
Application.ScreenUpdating = False
Range("A4:P162").Select
ActiveSheet.PageSetup.PrintArea = "$A$4:$P$162"
Range("G4").Select
Application.ScreenUpdating = True
End Sub
Servus, Walter