Excel - print 2 pages on 1 sheet of paper

[Guest]

In Excel I made a product list containing 4 colomns and over 1000 rows. When
I print it I only use half the paper. I'd like to be able to put page 2 next
to page 1 on the same sheet of paper. Who can help?

 

[Tom Ogilvy]

The easiest solution would be to check your print driver's capabilities and
see if it will support 2 UP printing (2 pages per sheet). If it has a post
script driver, it should be able to do this.

 

[Gord Dibben]

Jerome

Can you deal with a macro?

This macro will move rows 50 to 100 up to E1:H50 and repeat to end of data in
the four original columns.

Leaves a blank row between each set of 50 rows.

Sub Move_Sets4_8()
Dim iSource As Long
Dim iTarget As Long
iSource = 1
iTarget = 1
Do
Cells(iSource, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 100
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A"))
End Sub


Gord Dibben Excel MVP

 

[Guest]

Thanks! That works perfect.

Jerome

Can you deal with a macro?

This macro will move rows 50 to 100 up to E1:H50 and repeat to end of data in
the four original columns.

Leaves a blank row between each set of 50 rows.

Sub Move_Sets4_8()
Dim iSource As Long
Dim iTarget As Long
iSource = 1
iTarget = 1
Do
Cells(iSource, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "E")
iSource = iSource + 100
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A"))
End Sub


Gord Dibben Excel MVP

 

[Gord Dibben]

Thanks for the feedback.

Gord

Thanks! That works perfect.