Private Sub Command1_Click( )
'change the name of your printer from the printer collection
Shell "RUNDLL32 PRINTUI.DLL,Pri ntUIEntry /y /n ""Microsoft XPS Document Writer"""
End Sub