Hallo Stefan,
hier vielleicht ein sehr einfacher Ansatz, in dem Du einfach die Seitenzahl auf 1 begrenzt. Löst das Dein Problem?
Worksheets("Preismitteilung").PageSetup.FitToPagesTall =1
Worksheets(
"Preismitteilung"
).PageSetup.
VG, Goofy