How to print a very long column


D

Duncan Dee

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

Advertisements

D

Duncan Dee

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

Thank you so much
 
Ad

Advertisements

G

Gord Dibben

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top