Print in columns (Word style columns)

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Kim - 06 Feb 2008 20:15 GMT

I'd like to print my worksheet in 2 "columns"...

Explanation: My worksheet has 3 narrow columns and hundreds of rows.
The 3 narrow columns easily fit on 1/2 of a page (portrait). I would like to
print so that 2 "columns" are created on the printed page (think Word style
columns...where the next line of text simply goes to the top right side of
the page instead of the next page)

I know I could manipulate the data and make 6 columns in my worksheet, but
this is not ideal because data will be added/deleted from the list and I need
to be able to sort it...it would create a formatting nightmare.

Does anyone know how to accomplish this in Excel? Thank you!!!

Reply to this Message

Gord Dibben - 07 Feb 2008 01:41 GMT

Kim

This macro will give you 6 columns A1:C50 in ABC and A51:C100 moved to D1:F50

So on down the sheet with a pagebreak every 50 eows.

Sub Move_Sets_PBreak()
Dim iSource As Long
Dim iTarget As Long

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 3).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 3).Cut _
Destination:=Cells(iTarget, "D")

iSource = iSource + 100
iTarget = iTarget + 50

PageBreak = xlPageBreakManual
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub

If not what you want, post back........there are other configurations available.

Gord Dibben MS Excel MVP

>I'd like to print my worksheet in 2 "columns"...
>
[quoted text clipped - 9 lines]
>
>Does anyone know how to accomplish this in Excel? Thank you!!!

Reply to this Message