Printing pages in Excel

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

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

VB Code:

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

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

VB Code:

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

:)

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

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.

VB Code:

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!