mit Macro Druckauftrag ausführen lassen

Question

Hallo liebe Exelgemeinde

Ich benötige mal Eure Unterstützung. Ich möchte mittels Macro zwei Exelblätter ausdrucken lassen. Allerdings soll das erste Blatt in Hochformat und das zweite Blatt in Querformat ausgedruckt werden.
Mit meinem Macro wird allerding nur das Querformat benutzt und ich weiss nicht woran das liegen könnte. Folgenden Code habe ich im Modul eins:


Sub Drucken()

Sheets("Leistungsauftrag DKV").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$52"
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 65
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Abgabe").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$47"
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 65
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


End Sub

Wäre nett, wenn mir hierbei jemand helfen könnte.

M.f.G.
Horst

Answer 1

Hallo Horst,

da fehlt ein Befehl, habe in hinzu gefügt (fettgedruckt)

Sub Drucken()

Sheets("Leistungsauftrag DKV").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$52"
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 65
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Abgabe").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$47"
With ActiveSheet.PageSetup
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 65
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True


End Sub

Gruss
Rainer

Answer 2

Hallo Rainer

Das Macro funktioniert einwandfrei. Bedanke mich für die prompte Hilfestellung.

Gruß Horst