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

date: Fri, 25 Jul 2008 09:16:02 -0700   author:   DianeG

Re: Dividing print into landscape columns   

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

date: Fri, 25 Jul 2008 16:30:32 -0700   author:   Gord Dibben gorddibbATshawDOTca

Re: Dividing print into landscape columns   

Thank you very much for your response

Regards

Diane

"Gord Dibben" wrote:

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

date: Sat, 26 Jul 2008 03:47:01 -0700   author:   DianeG