La cosa che mi infastidisce è che se trascino l'interruzione verticale alla destra dell'ultima colonna, tutti i dati generati risultano comodamente stampabili senza bisogno di ridimensionare margini e quant'altro.

Ho provato quindi a registrare la macro relativa a tale operazione e l'ho integrata nel mio codice così

xlApp.ActiveWindow.View = xlPageBreakPreview
xlSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
xlApp.ActiveWindow.View = xlNormalView

Tutto sembra risolto però gradirei avere qualche parere.
Mi sembra una cosa un pò arrafazzonata.