Excel - print 2 pages on 1 sheet of paper

J

Jerome

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?
 
T

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.
 
G

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
 
J

Jerome

Thanks! That works perfect.

Gord Dibben said:
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
Click to expand...
 
Top