Print 2 pages on one page in Excel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top