Hi
I assume that it would be better to keep all the data on one page, so why not use a macro for printing and that way you do not have to duplicate any data, for example if you have data in columns A to L
Sub print_filled_range()
Dim a As Double
Let a = Range("A65536").End(xlUp).Row
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Range(Cells(1, 1), Cells(a, 12)).PrintOut preview:=True
End Sub
If you could give an example of how many columns you are using and which have data entered then an accurate example can be given.
A sample illustrating the above is attached.
regards
Jeff
Bookmarks