Moin Moin
Ich wünsche Euch einen schönen zweiten Advent.
Habe eine Frage, die lautet.
Habe 2 Druckbereiche in einer Tabelle.
Wie bekomme ich die Bereiche auf einen Blatt quer?
Sub Drucken_Euro_Tipps()
With ActiveSheet.PageSetup
.PrintArea = "$A$9:$G$23,$I$9:$AR$23"
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.BlackAndWhite = True
.Zoom = 75
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut
Range("A9").Select
End Sub
leider druckt er 2 Seiten, nicht eine.
Mfg
Günther
Office 2003 Sp2