wrapping columns in a printout

[Guest]

How do I get a column print "top to bottom" wrapping on each page so that
each page is used entirely up before moving down to the next page.

 

[Dave Peterson]

David McRitchie has a macro that will "snake" the columns.
http://www.mvps.org/dmcritchie/excel/snakecol.htm

Personally, I'd copy into MSWord (maybe hitting NotePad if MSWord slows down
when I paste).
Then use MSWord's Format|Column to make life easy.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Gord Dibben]

Jim

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

Also see Dave P's post with links to David McRitchie's site.


Gord Dibben MS Excel MVP