Druck im Hochformat
10.04.2016 09:36:12
chris58
Hallo !
ich habe den u.a. Code mit dem Makrorekorder aufgezeichnet. Wie kann ich im Hochformat drucken und nicht so wie hier im Querformat.
Bitte sagt mir, wo ich das ändern kann.
Danke
chris
Sub Drucken()
' Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Wozu ist die erste With Schleife gut? Funktioniert auch ohne!
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$M$38"
'Wozu braucht es Header/Footer?
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
'Wozu sind diese Wertangaben gut?
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveSheet.PrintOut
' Bildschirmaktualisierung einschalten
Application.ScreenUpdating = True
End Sub