Print a userform on "Print" button click

[rharri1972]

I have a userform3 that is a customer order form.
I am still building but wanted to print it to check how it is going to look at this point.
I created a command button and the code is:

Private Sub CommandButton1_Click()
UserForm3.PrintForm

End Sub

it looks like it is going to print when the button is clicked but doesn't print.
I check the printer que and it has a printer error.

I have checked just a document from word and the printer and computer are communication but the userform will not print.

any help?

 

[Ottsel]

It's basically what you have, but perhaps after executing the 'Print' button having to select the printer within the Userform will help resolve this issue?

Option Explicit
Private Sub CommandButton1_Click()
If Application.Dialogs(xlDialogPrinterSetup).Show Then
    UserForm3.PrintForm
    Else
    Exit Sub
End If
End Sub