Great!!!!

Thanks a lot man!

"Ron de Bruin" ha scritto nel messaggio
...
Try this

It will hide the columns B:D and print
and unhide the columns after that

Sub test()
With ActiveSheet
.Columns("B:D").Hidden = True
.Range("a10:E30").PrintOut
.Columns("B:D").Hidden = False
End With
End Sub

For a filename see File Page Setup(Header and footer)

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Giacomo" wrote in message
...
I have a little question...
I have an excel file and with a command button I'm trying to
print 2 columnes and the name of the file at the top of the page...
I know how to print a column (for exemple from A10 to A30) with this
command

Private Sub CommandButton5_Click()
ActiveSheet.PageSetup.PrintArea = "$A$10:$A$30"
End Sub

But if I have to print the column E10-E30 too...how can I do?
I've tried with this subroutine

Private Sub CommandButton5_Click()
ActiveSheet.PageSetup.PrintArea = "$A$7:$A$30,$E$7:$E$30"
Application.Dialogs(xlDialogPrint).Show
End Sub

Now I can print the two columnes but in two different papers!!!
And how can I obtain the file name in my printing?
I' sure that my question is not so clear!!!!
Sorry for my english and for my stupid question!

Thanks

Giacomo