Druckmakro
Walterk
Folgendes Makro gibt an welcher Drucker aktiv ist und druckt dann die angegebenen Bereiche. Den Code habe ich laienhaft aus zwei Makros einfach zusammengesetzt.
Beim Ablauf des Makros wird in die Seitenansicht gewechselt und das sollte nicht sein.
Was muss ich ändern, damit dieser Schritt ausgelassen wird?
Hier der Code:
Sub AlleBlätter()
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?", _
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
.PageSetup.PrintArea = "A48:P105"
.PageSetup.Orientation = xlPortrait
.PrintOut
.PageSetup.PrintArea = "A106:P162"
.PageSetup.Orientation = xlPortrait
.PrintOut
End With
End Sub
Anzeige