|
Hallo Xtreme,
Das ist der Sinn einer Skalierung. Dass Teile, die sonst auf Folgeseiten dargestellt würden, mit auf die erste Seite gequetscht werden. Wenn ich dich richtig verstehe, willst du zwar das Druckbild passend verkleinern aber dennoch den Seitenumbruch selbst bestimmen?
Probiers mal so:
Sheets("Rechnung").Select
Sheets("Rechnung").PageSetup.Zoom = False
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{1,2})"
Application.ExecuteExcel4Macro "PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})"
Set Sheets("Rechnung").HPageBreaks(1).Location = Range("A164")
Statt A164 einfach die A-Zelle angeben vor der du den Seitenumbruch machen willst.
Gruß Mr. K.
|