Evo za pocetak recimo 2 nacina,
1. podesiti format stranice kako treba, potom za svaki red (row) podesiti visinu da ide od margine do margine, neposredno pre stampe
ili
2. koristiti 'PageBreaks'
Na primer, primer za prvih 10 redova u aktivnom sheet-u kako bi bilo...
Code:
Dim i As Long
' Reset all page breaks
ActiveSheet.ResetAllPageBreaks
For i = 2 To 10
' Select range
Range("A" & i).Select
' Add page break
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next
' {
' etc. code like doing printing and so on...
' ...
' optional: at the end of process reset reset all page breaks again
' }
Kod samo treba prilagoditi potrebi i ubaciti i povezati sa ostalim stvarima.