Print multiple Area and wrap together

[LP]

From page set up, I select the area I want to print (let say column A and C),
but is it possible that both selected column wrap up together and print in
only one page (similar as if I hide colum "B" in between, but I don't want ot
hide anything) ?

 

[Gord Dibben]

You want to print only columns A and C and you want these to wrap like
newspaper columns?

You will not be able to do this in place.

Copy A and C to a new worksheet and print from there.

To wrap them you can use this macro which wraps 2 long columns into 8
shorter columns.

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

iSource = 1
iTarget = 1

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

End Sub


Gord Dibben MS Excel MVP