software

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?

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

quot;Jeromequot; gt; wrote in message
...
gt; In Excel I made a product list containing 4 colomns and over 1000 rows.
When
gt; I print it I only use half the paper. I'd like to be able to put page 2
next
gt; to page 1 on the same sheet of paper. Who can help?
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, quot;Aquot;).Resize(50, 4).Cut _
Destination:=Cells(iTarget, quot;Aquot;)
Cells(iSource 50, quot;Aquot;).Resize(50, 4).Cut _
Destination:=Cells(iTarget, quot;Equot;)
iSource = iSource 100
iTarget = iTarget 51
Loop Until IsEmpty(Cells(iSource, quot;Aquot;))
End SubGord Dibben Excel MVPOn Tue, 20 Dec 2005 11:02:05 -0800, Jerome gt;
wrote:

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

Thanks! That works perfect.

quot;Gord Dibbenquot; wrote:

gt; Jerome
gt;
gt; Can you deal with a macro?
gt;
gt; This macro will move rows 50 to 100 up to E1:H50 and repeat to end of data in
gt; the four original columns.
gt;
gt; Leaves a blank row between each set of 50 rows.
gt;
gt; Sub Move_Sets4_8()
gt; Dim iSource As Long
gt; Dim iTarget As Long
gt; iSource = 1
gt; iTarget = 1
gt; Do
gt; Cells(iSource, quot;Aquot;).Resize(50, 4).Cut _
gt; Destination:=Cells(iTarget, quot;Aquot;)
gt; Cells(iSource 50, quot;Aquot;).Resize(50, 4).Cut _
gt; Destination:=Cells(iTarget, quot;Equot;)
gt; iSource = iSource 100
gt; iTarget = iTarget 51
gt; Loop Until IsEmpty(Cells(iSource, quot;Aquot;))
gt; End Sub
gt;
gt;
gt; Gord Dibben Excel MVP
gt;
gt;
gt; On Tue, 20 Dec 2005 11:02:05 -0800, Jerome gt;
gt; wrote:
gt;
gt; gt;In Excel I made a product list containing 4 colomns and over 1000 rows. When
gt; gt;I print it I only use half the paper. I'd like to be able to put page 2 next
gt; gt;to page 1 on the same sheet of paper. Who can help?
gt;

Thanks for the feedback.

Gord

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

gt;Thanks! That works perfect.
gt;
gt;quot;Gord Dibbenquot; wrote:
gt;
gt;gt; Jerome
gt;gt;
gt;gt; Can you deal with a macro?
gt;gt;
gt;gt; This macro will move rows 50 to 100 up to E1:H50 and repeat to end of data in
gt;gt; the four original columns.
gt;gt;
gt;gt; Leaves a blank row between each set of 50 rows.
gt;gt;
gt;gt; Sub Move_Sets4_8()
gt;gt; Dim iSource As Long
gt;gt; Dim iTarget As Long
gt;gt; iSource = 1
gt;gt; iTarget = 1
gt;gt; Do
gt;gt; Cells(iSource, quot;Aquot;).Resize(50, 4).Cut _
gt;gt; Destination:=Cells(iTarget, quot;Aquot;)
gt;gt; Cells(iSource 50, quot;Aquot;).Resize(50, 4).Cut _
gt;gt; Destination:=Cells(iTarget, quot;Equot;)
gt;gt; iSource = iSource 100
gt;gt; iTarget = iTarget 51
gt;gt; Loop Until IsEmpty(Cells(iSource, quot;Aquot;))
gt;gt; End Sub
gt;gt;
gt;gt;
gt;gt; Gord Dibben Excel MVP
gt;gt;
gt;gt;
gt;gt; On Tue, 20 Dec 2005 11:02:05 -0800, Jerome gt;
gt;gt; wrote:
gt;gt;
gt;gt; gt;In Excel I made a product list containing 4 colomns and over 1000 rows. When
gt;gt; gt;I print it I only use half the paper. I'd like to be able to put page 2 next
gt;gt; gt;to page 1 on the same sheet of paper. Who can help?
gt;gt;