Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Druckmakro | Herbers Excel-Forum


Betrifft: Druckmakro von: Walterk
Geschrieben am: 21.11.2009 08:47:37

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

  

Betrifft: AW: Druckmakro von: Nepumuk
Geschrieben am: 21.11.2009 08:57:33

Hallo,

lösch diese Zeile:

If blnPrint Then ActiveSheet.PrintPreview

Gruß
Nepumuk


  

Betrifft: Passt, Danke. Walter von: Walterk
Geschrieben am: 21.11.2009 09:53:26