Excel - print 2 pages on 1 sheet of paper
 

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?

Excel - print 2 pages on 1 sheet of paper
 

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.

--
Regards,
Tom Ogilvy

"Jerome" wrote in message
...
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?

Excel - print 2 pages on 1 sheet of paper
 

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?

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?

Excel - print 2 pages on 1 sheet of paper
 

Thanks for the feedback.

Gord

On Tue, 20 Dec 2005 13:30:03 -0800, Jerome
wrote:

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?