Druckbereich via VBA definieren

[Ken]

Mit dieser Einstellung:

Code [Auswählen] Erweitern

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .PrintTitleRows = "$1:$7"
        .FitToPagesWide = 2
        .FitToPagesTall = 2
        .Zoom = False'25
        .CenterHorizontally = True
        .CenterVertically = True
        .PrintArea = "$A$1:$ae$238, $A$240:$ae$373"
         End With

druckt er auf 8 Blätter....aber sage ich ihm nicht durch FittoPage, dass es nur 2 Blätter werden sollen?

[database]

Hallo,

aber sage ich ihm nicht durch FittoPage, dass es nur 2 Blätter werden sollen

Nein, du weist Excel damit an den angegebenen Druckbereich auf 2 Seiten Hoch und 2 Seiten Breit zu erweitern - also werden das 4 Seiten werden!
Da in deinem Code 2 Druckbereiche angegeben sind, kann ich mir vorstellen, dass da 8 Seiten rauskommen könnten.

Hast du die Spaltenbreiten mal gemäß meines letzen Posts auf 14 eingestellt?

Dann versuch mal folgendes:

Code [Auswählen] Erweitern


With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        '.PrintTitleRows = "$1:$7"
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .Zoom = 22
        .CenterHorizontally = False
        .CenterVertically = True
        .PrintArea = "$A$1:$ae$238, $A$240:$ae$373"
         End With


Ich habe in diesem Codeteil die Titelzeilen auskommentiert - versuch mal ohne, wie schaut dein Ausdruck dann in der Vorschau aus?
Kommt das meinem nahe?

[Ken]

Hallo,

sieht genau so aus wie bei mir.

[Anhang gelöscht durch Administrator]