Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Druckmakro

Druckmakro
Walterk
Hallo,
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
Besten Dank und Servus, Walter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Druckmakro
21.11.2009 08:57:33
Nepumuk
Hallo,
lösch diese Zeile:
If blnPrint Then ActiveSheet.PrintPreview
Gruß
Nepumuk
Passt, Danke. Walter
21.11.2009 09:53:26
Walterk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige