Userform and button to select printer

Hi all,

I am having issues with a button on a userform and printing.

This works at the moment:

Private Sub PrintButton_Click()
UserForm1.PrintForm
End Sub

But i needed a user to be able to chose a printer other than the default printer so i changed it to this

Private Sub PrintButton_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
UserForm1.PrintForm
End Sub

This brings up the dialog box to select a printer. But once you double click on a printer or highlight one and press ok. It still prints to the default printer.

Any suggestions?

Rgds

Surreall