Print 2 pages on one page in Excel

B

BIGCHAD36

I need to print 2 pages on one page, I have 3 colunms of data on each page
400 pages, I want to print 6 columnms wich would be 2 pages of data on one
page how do i do this??
 
G

Gord Dibben

Can you handle a macro?

The code below will move rows 51-100 from Columns A-C to columns D-F then
leave a blank row and continue at 50 rows per set until done.

Result is 6 columns from original 3.

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

If you want some other configuation, post back with details.

Gord Dibben Excel MVP
 
Top