Wie muss ich den Code abändern damit ich den Druck so steuern kann das alle Spalte auf einer _ Seite A3 sind und der Drucker ausgewählt werden kann?
Sub Printer()
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
With ActiveSheet
With .PageSetup
.PaperSize = xlPaperA3
.Orientation = xlLandscape
.FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
End With
End With
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub
Diesen Code habe ich für Spalten und Druckerauswahl aber es druckt mir nichts aus.
Danke und Gruss
Roger