Visual Basic - Elegir impresora sin predeterminarla

Buenoi todos sabemos que hay un componente de Visual Basic que se llama CommonDialog este nos permite elegir un directorio por siqueremos guardar al gun archivo, o como en mi caso, nos permite seleccionar una impresora, para manadar a imprimir; bueno pue el problema es que al yo elegir la impresora tambien me la predetermina y no quiero que se predetermine alguien sabe la solución a este problemita
pleeeeeeeeeaaaaaaaaaase.
de antemano Gracias.......

La colección Printers te permite consultar las impresoras disponibles de forma que puedas especificar la impresora predeterminada de tu aplicación. Por ejemplo, quizá quieras saber cuál de las impresoras disponibles usa un determinado controlador de impresoras. El siguiente código te comprueba todas las impresoras disponibles para encontrar la primera impresora cuya orientación de página sea Vertical y después la establece como la impresora predeterminada:

Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
' La define como predeterminada del sistema.
Set Printer = X
' Sale del bucle.
Exit For
End If
Next

Mediante la instrucción Set se designa una de las impresoras de la colección Printers como impresora predeterminada. El ejemplo anterior designa como impresora predeterminada de la aplicación la impresora identificada por la variable de objeto X.

Nota Si utilizas la colección Printers para especificar una impresora determinada, como Printers(3), sólo puedes tener acceso a sus propiedades en modo de sólo lectura. Para leer y escribir las propiedades de una impresora concreta, primero tienes que definirla como impresora predeterminada de la aplicación.

Saludos y espero haberte sido de ayuda

NombreImpresora$="HP"

dim prnPrinter as printer

for each prnPrinter in Printers

if prnPrinter.DeviceVame = NombreImpresora$ then
set Printer = prnPrinter
exit for
endif

next

crea en un formulario un LISTBOX y un COMMAND, introduce en el COMMAND lo que sigue

For x = 0 To Printers.Count - 1
List1.AddItem Str(x) + " " + Printers(x).DeviceName
Next
Set Printer = Printers(2)
Printer.Print "holA"
Printer.EndDoc

Printer.TrackDefault = True
Printer.Print "hola2"
Printer.EndDoc

el objeto SET establece como impresora activa la número 2 y en ella escribe.
Ten presente que una vez que termine debes de dejar la predeterminada como activa, si no intentará escribir en la impresora predeterminada con el controlador de la que tú has seleccionado.

la sentencia TRACKDEFAULT devuelve el control a la impresora predeterminada del sistema.

ASI

HOLA se imprimirá en la seleccionada por SET PRINTER y

HOLA2 en la predeterminada del sistema

saludos