Print userform

[joacro]

Hi there,

I have a userform with a printbutton.

The aim is to bring up the print dialog so the user can select the printer and the amount of copies, print preview etc.

Hope someone can help me with this

 

[VoG]

Try like this

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm
End Sub

 

[joacro]

Hi there,

Thank you it brings up the print dialog, but when the user want to cancel the print, the printing actually continue

Can you perhaps assist in this?

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim RetStat
RetStat = Application.Dialogs(xlDialogPrinterSetup).Show
If RetStat Then Me.PrintForm
End Sub

 

[joacro]

That is just great, thank you Peter!

 

[rodstudio]

hi Peter, could you teach me how to save as PDF a form in vba? I used your guide that allow me to select another printer like a PDF Printer, but I know that the EXCEL has the propierty to do this, but I don't know how

 

[DonLeverton]

Sweet! Thanks!
This code also works with an ActiveX command button on a worksheet, BTW.
All you have to do is change "Me.PrintForm" to "Me.PrintOut"