Printing Columns

H

Harvey

Hello All - I have a need to print an excel database file. The file is 3 columns wide and about 1500 rows. How can I print it to paper where it will print two columns of data? For example: records 1050 would print down the left margin of the paper and records 51-100 would print along the center margin and continue like that on the next pages until all the records are printed. Thank you very much in advance for any help you can offer.

Best always,

Harvey
 
D

Don Guillett

This might do what you want
Sub movenums()
lr = Cells(Rows.Count, "a").End(xlUp).Row
For i = 51 To lr Step 50
lc = Cells(1, "iv").End(xlToLeft).Column + 1
'either of these lines will work
Cells(i, "a").Resize(50, 1).Cut Cells(1, lc)
'Range(Cells(i, "a"), Cells(i + 49, "a")).Cut Cells(1, lc)
Next
End Sub

--
Don Guillett
SalesAid Software
[email protected]
Harvey said:
Hello All - I have a need to print an excel database file. The file is 3
Click to expand...
columns wide and about 1500 rows. How can I print it to paper where it will
print two columns of data? For example: records 1050 would print down the
left margin of the paper and records 51-100 would print along the center
margin and continue like that on the next pages until all the records are
printed. Thank you very much in advance for any help you can offer.
 
J

Jim Cone

Harvey,

My Excel add-in "Side by Side" does what you want.
It easy to use, fast and comes with a one page Word.doc install/use instruction file.
Free - upon direct request; remove xxx from my email address.

*now with options for 2up, 3up or 4up column(s) arrangement*

Regards,
Jim Cone
San Francisco, CA
[email protected]

Harvey said:
Hello All - I have a need to print an excel database file. The file is 3 columns wide and about 1500 rows. How can I print it to
Click to expand...
paper where it will print two columns of data? For example: records 1050 would print down the left margin of the paper and records
51-100 would print along the center margin and continue like that on the next pages until all the records are printed. Thank you
very much in advance for any help you can offer.
 
Top