Printing Long Columns

  • Thread starter Thread starter Charlie
  • Start date Start date
C

Charlie

I have a simple worksheet with order numbers in column A
and corresponding completion dates in column B. Since
there are over 1,000 orders, it takes many pages to print
the sheet, with a great deal of paper wasted on the blank
area to the right of the two columns. Other than the
tedious process of cutting and pasting, is there a way to
arrange the information into multiple multiple columns
across the page?
 
Charlie, just another option, the addin from ASAP utilities has a function
that will do it also, you can take a look at it here
http://www.asap-utilities.com/

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Non-VBA method...

If your data is an column A starting at Cell A1, then the following
formula, entered in Cell B1 and filled across 10 columns and down 100
rows will produce your desired result:

=INDIRECT("A"&(ROW()+(COLUMN()-2)*100))

The 2 refers to the column of Cell B1; if you're putting the formula in
a different column, use the appropriate number for that column.

Copy>Paste Special(in place) the results then delete the original column A.

VBA method to snake the data from column A into your choice of number of
columns.....

Public Sub SplitToCols()
Dim NUMCOLS As Integer
Dim i As Integer
Dim colsize As Long
On Error GoTo fileerror

NUMCOLS = InputBox("Choose Final Number of Columns")
colsize = Int((ActiveSheet.UsedRange.Rows.Count + _
(NUMCOLS - 1)) / NUMCOLS)
For i = 2 To NUMCOLS
Cells((i - 1) * colsize + 1, 1) _
.Resize(colsize, 1).Copy Cells(1, i)
Next i
Range(Cells(colsize + 1, 1), Cells(Rows.Count, 1)).Clear
fileerror:
End Sub

Gord Dibben XL2002
 
And one more option.

Copy your data to MSWord and format that for multiple columns and print from
there.
 
Charlie,

And another option...

My Excel add-in "Side by Side" written to do specifically what you want.
It doesn't affect your original worksheet, as a copy is created with the new
column arrangement. I haven't seen any other program that's better. It's
free upon direct request - omit the xxx from my email address.

Also, I discovered after installing WindowXP and upgrading my printer
drivers that my 7 year old printer suddenly could print multiple sheets per
page. Of course they look pretty small. Worth checking.

Regards,

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