Printing pages in Excel

[pipo74]

This one's more Excel's than VBA, but let's see if anyone's here can help me.

On a Worksheet, I want to print columns 1,2 and 3 (A,B and C) side to side with columns 15,16 and 17 (O,P and Q). I can freeze a pane that includes column 1,2 and 3, or I can use the vertical division box that fits well for working. But when it comes to print, the print preview separates it in 2 different pages.

How can I print it in a single page? Perhaps it's very simple, but It's the first time I need to do this and I can't figure it out.

Thank's in advance

[RobDog888]

You will probably need some version of this to set the print area
to what you want.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$10"

And this will be to clear the print area and make it the whole sheet.

Worksheets("Sheet1").PageSetup.PrintArea = ""

[pipo74]

Right. But is there another way of working with x,y (user choosen) rather than fixed numbers r1c1?

[RobDog888]

What version of Excel are you using? In 2003 you can use the
menu item File > Print Area > Set Print Area
This is the user choosen method.

Or you can program it in a column range allowing the user to
enter the columns or even allow them to enter a range. Just
make sure that if you want columns that are not contiguous then
add a comma between the ranges.

Public Sub PrintMe()
    Worksheets("Sheet1").PageSetup.PrintArea = "$A:$C[color=red],[/color]$O:$Q"
End Sub

If you want to prompt the user instead of using the set print area
menu item, then use an inputbox and set the area to a range
variable.

HTH


VB/Outlook Guru!