Excel VBA PagesetUp 1. Seite breit fix Anzahl höhe in Abhängigkeit von der letzen Zeile

[Excelmania]

Hallo.

Ich möchte den Druck so definieren, dass die Seiten breite fix ist und die Anzahl der Seiten von der Anzahl der Datensätze abhängig ist.

With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = False
.PrintArea = "A1:P" & ZlZ
End With

 

[deineMudda]

Hallo,

was soll "die Anzahl der Seiten von der Anzahl der Datensätze abhängig ist" bedeuten?

Es ist doch Standard, dass der komplette Inhalt gedruckt wird.

Ergänzung (30. Januar 2021)

Vermutlich suchst du sowas:

Sub Makro1()

    Application.PrintCommunication = False
   
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 0
    End With

    Application.PrintCommunication = True
   
End Sub