Excel - print 2 pages on 1 sheet of paper
Thanks! That works perfect.
"Gord Dibben" wrote:
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
On Tue, 20 Dec 2005 11:02:05 -0800, Jerome
wrote:
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?
|