ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Print multiple Area and wrap together (https://www.excelbanter.com/excel-discussion-misc-queries/256533-print-multiple-area-wrap-together.html)

lp

Print multiple Area and wrap together
 
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

Print multiple Area and wrap together
 
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



On Wed, 17 Feb 2010 08:55:01 -0800, LP wrote:

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




All times are GMT +1. The time now is 04:54 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com