Visual Basic - Cómo cambio desde VB6 la impresora prederminada ??

Hola Amigos...
Tengo un problema y es que necesito dentro de la aplicación de VB6 cambiar temporalmente la impresora prederminada sin que el usuario tenga que realizar ninguna acción.
Gracias

'PON ESTE CODIGO EN UNA OPCION Y PODRAS SELECCIONAS LA IMPRESORA Q TU KIERAS.

Private Sub OpImpresora_Click()
Dim BeginPage, EndPage, NumCopies, I
Conprint.CancelError = True
On Error GoTo ErrHandler
Conprint.ShowPrinter
BeginPage = Conprint.FromPage
EndPage = Conprint.ToPage
NumCopies = Conprint.Copies
For I = 1 To NumCopies
'Put code here to send data to the printer
Next I
Exit Sub
ErrHandler:
Exit Sub
End Sub

Gracias Alfonso por tu respuesta, lo que necesito que me digas es ConPrint qué tipo de objeto es ?