Formatting Page

[Gator]

I have 20 pages to print where the print is on the left half of each sheet
because I'm printing only three columns. Is there a way to automatically
format the print to fill the entire sheet, for example, showing the first 30
or so lines on the left side and then the next 30 or so lines on the right
side.....that way I'd only be printing on 10 sheets?

 

[Gord Dibben]

You cannot format to do this.

You can cut the bottom half and paste beside the top half but since you want
sets of 30 or so a macro would be easiest.

This one shuffles the data into sets of 50 rows............if 300 is mandatory
edit the code to 30 where you see 50 and 60 where you see 100

51 - 100 beside 1 - 50 etc. and adds a pagebreak at each set.

Sub Move_Sets_PBreak()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 3).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 3).Cut _
Destination:=Cells(iTarget, "D")

iSource = iSource + 100
iTarget = iTarget + 50

PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP