Dividing print into landscape columns

I have a long Excel list which consists of 3 columns, 2 alpahabetically
sorted name columns and a date column. Is it possible to automatically print
the list in landscape but instead of 3 columns per page, wrap them (like
newspaper columns in Word) so that there are 6 columns and they stay in
aplabetical order?

Thanks

Diane

About the easiest method is to to copy the range to Word, make your
newspaper columns then copy back to Excel onto a new sheet.

Or you could use VBA code but there are variations depending upon the length
of your list and desired output format.

This code will give you 6 columns from 3 columns in sets of 50

1 to 50 and 51 to 100 then

101 to 150 and 151 to 200 etc.


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

Post back if you want a different configuation like 1 to 200 in A:C and 201
to 400 in D:F

Assuming your original list is 400 rows


Gord Dibben MS Excel MVP

On Fri, 25 Jul 2008 09:16:02 -0700, DianeG
<DianeG DeleteThis @discussions.microsoft.com> wrote:

>I have a long Excel list which consists of 3 columns, 2 alpahabetically
>sorted name columns and a date column. Is it possible to automatically print
>the list in landscape but instead of 3 columns per page, wrap them (like
>newspaper columns in Word) so that there are 6 columns and they stay in
>aplabetical order?
>
>Thanks
>
>Diane