printing excel 2 pages in one sheet

  • Thread starter Thread starter Esber
  • Start date Start date
E

Esber

Please help. How do I print in excel. I have data of 5000 rows and each
row has 3 columns. Each A4 page can take around 80 rows of data. In
order to save on paper, I was wondering if I could divide the page to
accommodate 6 rows by printing rows 1-80 on left side of an a4 page and
then rows 81-160 on the right side of the page. And then rows 161 to 241
on the left and rows 321 on the right side of page 2. And so on until
the total 5000 rows are printed. I know I can do this page by page one
at a time using the printscreen option but I was hoping I could set it
up so the printing could be done for the whole 5000 rows. The columns
are narrow (roughly 5 characters only) so no problem fitting 6 columns
in a page. But how do I do this so the printing could be done
continuously for the whole worksheet. thank you so much
 
What you want to do is called snaking. Look here for some tips on that.
Below the site is a macro for snaking two columns. You can modify that for
3. HTH Otto
'www.mvps.org/dmcritchie/excel/snakecol.htm
'
'Here is a macro for snaking two columns 50 rows at a time:
'Sub ReFormat()
'Dim iSource As Long
'Dim iTarget As Long
' iSource = 1
' iTarget = 1
' Do
' Cells(iSource, "A").Resize(50, 2).Cut Destination:=Cells(iTarget,
'"A")
' Cells(iSource + 50, "A").Resize(50, 2).Cut
'Destination:=Cells(iTarget, "C")
' Cells(iSource + 100, "A").Resize(50, 2).Cut
'Destination:=Cells(iTarget, "E")
' Cells(iSource + 150, "A").Resize(50, 2).Cut
'Destination:=Cells(iTarget, "G")
' iSource = iSource + 200
' iTarget = iTarget + 51
' Loop Until IsEmpty(Cells(iSource, "A").Value)
'End Sub
 
My mate in the UK uses a program call Fineprint400 with great success
with his Excel. I do not have a web address for it.
Jim
 
Back
Top