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"
)