Printing Long Columns

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

 

[Ron de Bruin]

Try this example on David's site Charlie
http://www.mvps.org/dmcritchie/excel/snakecol.htm

 

[Don Guillett]

try this
http://www.mvps.org/dmcritchie/excel/snakecol.htm

 

[Charlie]

Thans.....good information there!

 

[Paul B]

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

 

[Gord Dibben]

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

 

[Dave Peterson]

And one more option.

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

 

[Jim Cone]

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)