Office: Mit VBA alle Spalten auf eine Seite drucken

Liebes Forum,

ich möchte den unten stehenden Code ergänzen: alle Spalten sollen auf eine Seite gedruckt werden (also Seitenbreite = 1; Seitenlänge soll variabel bleiben). Kann jemand von Euch das ergänzen?

Danke und Gruß
Fin


Sub Set_Print_Area_Portrait()

Dim lastRow As Long, lastColumn As Long

With ActiveSheet
'Druckbereich aufheben
.PageSetup.PrintArea = ""
'Feststellen letzte benutzte Zeile / Spalte
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
lastColumn = Rows(lastRow).End(xlToRight).Column
'Druckbereich neu setzen
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(lastRow, lastColumn)).Address
'Ausrichtung Hochformat
.PageSetup.Orientation = xlPortrait
End With

Application.Dialogs(xlDialogPrint).Show

End Sub

Sub Set_Print_Area_Landscape()

Dim lastRow As Long, lastColumn As Long

With ActiveSheet
'Druckbereich aufheben
.PageSetup.PrintArea = ""
'Feststellen letzte benutzte Zeile / Spalte
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
lastColumn = Rows(lastRow).End(xlToRight).Column
'Druckbereich neu setzen
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(lastRow, lastColumn)).Address
'Ausrichtung Querformat und eine Seite breit
.PageSetup.Orientation = xlLandscape
End With

Application.Dialogs(xlDialogPrint).Show

End Sub