Double-printing in one print area - Excel

  • Thread starter Thread starter ChrisSmith
  • Start date Start date
C

ChrisSmith

I have a simple three-column list that I need to print, but need t
print two sets of the list per page. I can't adjust the layout of th
list itself as it is the result of an external database query which i
refreshed when the sheet is opened. I can't figure out a way to d
this, anyone got any ideas??? Thanks.:confused
 
Chris,

Excel prints a sheet just as it's actually laid out, with little variation.
By two sets, do you mean an identical list to the right, or do you want a
single list (easy) in two columns per page (not so easy)?
 
Hi

Thanks for replying. I would like to print the single list in tw
columns per page - it's basically a paper-saving excersise as there i
a large blank space on the right hand side if you just print the singl
list. Printing the list many times means a massive amount of waste
paper.

I have looked at all the settings and can't see a way around it - d
you think this would be possible with VBA?

Thank
 
Chris,

It could be done with a macro. It could also be done manually:

Determine the count of rows.
Go to the halfway point, and select a row there.
Press Ctrl-Shift-DownArrow. That should select all the stuff to the bottom.
There can be no empty rows along the way for this to work.
Edit - Cut.
Go to the top (Ctrl-Home).
Select a single cell at the upper left of where the second column should
start.
Edit - Paste
 
Hi

I have tried the cutting and pasting technique which has turned out t
be quite time consuming and problematic where users print to differen
printers, i.e. slightly different paper sizes mean what looks good fo
one doesnt work for another. It would be good to work out a way o
automatically (maybe with a macro?) re-positioning the data on th
pages so that the list reads down both columns of each page befor
going to the next - a bit like the clolumns feature in Word. This seem
like quite a simple thing to do so I am sure there must be a way! Woul
be grateful of any further advice...

Many thanks
Chri
 
Hi Chris, do your 3 columns always have the same amount of rows in them

Either way this macro may work.
If you paste your data into columns A, B and C then run the macro i
should cut and paste column B below A and C below B.
It will then copy this one column into another (which you are lookin
for) whilst deleting column B and C so you are just left with the tw
columns. confused I am?
This works if your data is no more than 10 rows i.e A1:C10 but I gues
you could alter that yourself as you know what the data you reciev
amounts to.
This is a first attempt at macros so forgive me if it doesn't work fo
your application or is long winded but I like to have a dabble I fin
it helps me learn quicker. Please let me know if it was of any help.


Sub row()
Range("B1:B10").Select
Selection.Copy
Range("A11").Select
ActiveSheet.Paste
Range("C1:C10").Select
Application.CutCopyMode = False
Selection.Copy
Range("A21").Select
ActiveSheet.Paste
Range("A1:A30").Select
Application.CutCopyMode = False
Selection.Copy
Range("D1").Select
ActiveSheet.Paste
Range("B1:C10").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Su
 
Chris,

My Excel add-in "Side by Side" may do what you want...
Column(s) of data are arranged into 2, 3 or 4 groups on successive pages.
Data sequence is maintained and the area above the data is not changed.
A new worksheet is created with the new column arrangement.
Your original worksheet is not affected.
You print from the new worksheet. It's easy to use and very fast.
Comes with one page of Word.doc install/use instructions.
Available - free - upon direct request. Remove xxx from email address.

Jim Cone
San Francisco, CA
(e-mail address removed)
 
Back
Top