Thread: printing with a command button
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
CLR CLR is offline
external usenet poster
  
Posts: 1,998
Default printing with a command button
Not sure exactly what you want, but this may help....

Sub Print20()
Range("A5:A24").Select
ActiveSheet.PageSetup.PrintArea = "$A$5:$A$24"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A5").Select
End Sub

Vaya con Dios,
Chuck, CABGx3



" wrote:

I want to print 20 consecutive cells using a command button on my
page.
Can someone help me?

Reply With QuoteReply With Quote