Is there a way to have colums wrap on a single page
 

Is there a way to format a spreadsheet so that if I have 2 colums with 75
entries in each colum, when it prints on a page it's 6 colums with 25 entries
each.

Thanks

Is there a way to have colums wrap on a single page
 

The short answer is no...
--
HTH...

Jim Thomlinson


"Phil Lawson" wrote:

Is there a way to format a spreadsheet so that if I have 2 colums with 75
entries in each colum, when it prints on a page it's 6 colums with 25 entries
each.

Thanks

Is there a way to have colums wrap on a single page
 

Not through formatting.

You could have a macro that does the work, but I like to copy the 2 column by 75
row range into MSWord. Then I can use MSWord's built-in ability to use columns
(Format|Column) to make it look nice (and save paper).

Phil Lawson wrote:

Is there a way to format a spreadsheet so that if I have 2 colums with 75
entries in each colum, when it prints on a page it's 6 colums with 25 entries
each.

Thanks

--

Dave Peterson

Is there a way to have colums wrap on a single page
 

Not by formatting alone.

You could use a macro to do this.

Sub Set_Three_Times()
Dim iSource As Long
Dim iTarget As Long
Dim cCols As Long
Dim rrows As Long

iSource = 1
iTarget = 1
cCols = InputBox("Original Number of Columns") '2
rrows = InputBox("rows per set") '25
Do
Cells(iSource, "A").Resize(rrows, cCols).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + rrows, "A").Resize(rrows, cCols).Cut _
Destination:=Cells(iTarget, (cCols + 1))
Cells(iSource + (2 * rrows), "A").Resize(rrows, cCols).Cut _
Destination:=Cells(iTarget, (2 * cCols) + 1)
iSource = iSource + (rrows * (cCols + 1))
iTarget = iTarget + (rrows + 1)
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP


On Tue, 4 Sep 2007 14:10:02 -0700, Phil Lawson
wrote:

Is there a way to format a spreadsheet so that if I have 2 colums with 75
entries in each colum, when it prints on a page it's 6 colums with 25 entries
each.

Thanks