PRINTAREA

  • Thread starter Thread starter Giacomo
  • Start date Start date
G

Giacomo

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
 
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)
 
Great!!!!

Thanks a lot man!

Ron de Bruin said:
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)
 
If your print area has discontinuous sub-areas, they will print on
different sheets. You can, however, hide the intervening columns:


Private Sub CommandButton5_Click()
ActiveSheet.PageSetup.PrintArea = "$A$7:$E$30"
Columns("B:D").Hidden = True
ActiveSheet.Printout
Columns("B:D").Hidden = False
End Sub
 
thank you very much!!!!

too kind....

J.E. McGimpsey said:
If your print area has discontinuous sub-areas, they will print on
different sheets. You can, however, hide the intervening columns:


Private Sub CommandButton5_Click()
ActiveSheet.PageSetup.PrintArea = "$A$7:$E$30"
Columns("B:D").Hidden = True
ActiveSheet.Printout
Columns("B:D").Hidden = False
End Sub
 
Back
Top