Moin VBA Gemeinde,

habe folgenden Code zum PDF Druck in meiner Excel Datei.

Hier möchte ich gern den Druck auf die gesamte Seite im Querformat skalieren. Derzeit wir die Seite abgeschnitten.
 

ActiveSheet.PageSetup.PrintArea = "$A$6:$P$402"
    Sheets("Tabelle25").ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Temp\Tabelle25.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Freue mich auf Hinweise