I have a very long thin spreadsheet - 4 columns by 2000 plus rows

I would like to print on as few sheets as possible

Can the system somehow print say rows 1 to 50 on the left of a page then 51
to 100 in the middle and 101 to 150 on the right thus saving two thirds of
the paper needed?

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Duncan Dee" <Duncan wrote in message
...
I have a very long thin spreadsheet - 4 columns by 2000 plus rows

I would like to print on as few sheets as possible

Can the system somehow print say rows 1 to 50 on the left of a page then
51
to 100 in the middle and 101 to 150 on the right thus saving two thirds of
the paper needed?

Brilliant ! - transfer to Word and split across columns - the perfect answer

Thank you so much

"Niek Otten" wrote:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Duncan Dee" <Duncan wrote in message
...
I have a very long thin spreadsheet - 4 columns by 2000 plus rows

I would like to print on as few sheets as possible

Can the system somehow print say rows 1 to 50 on the left of a page then
51
to 100 in the middle and 101 to 150 on the right thus saving two thirds of
the paper needed?

An easy way to do it without using Word.

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

iSource = 1
iTarget = 1

Do
Cells(iSource, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "A")
Cells(iSource + 50, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "E")
Cells(iSource + 100, "A").Resize(50, 4).Cut _
Destination:=Cells(iTarget, "I")
iSource = iSource + 150
iTarget = iTarget + 51
Loop Until IsEmpty(Cells(iSource, "A").Value)

End Sub


Gord Dibben MS Excel MVP

On Fri, 6 Feb 2009 04:32:06 -0800, Duncan Dee
wrote:

Brilliant ! - transfer to Word and split across columns - the perfect answer

Thank you so much

"Niek Otten" wrote:

http://www.mvps.org/dmcritchie/excel/snakecol.htm

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

"Duncan Dee" <Duncan wrote in message
...
I have a very long thin spreadsheet - 4 columns by 2000 plus rows

I would like to print on as few sheets as possible

Can the system somehow print say rows 1 to 50 on the left of a page then
51
to 100 in the middle and 101 to 150 on the right thus saving two thirds of
the paper needed?