Visual Basic - Problemas de impresión

Buenas, necesito colaboración en lo siguiente, tengo una aplicación que trabaja con varias impresoras, necesito cambiar la impresora predeterminada desde VB6 pero no me sirve que el usuario la selecciones sino que yo mismo la asigne por código internamente.
Las impresiones las saco por el DataReports. Gracias.

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