Visual Basic - impresora predeterminada !!!!

POR FAVOR !!!
Uso el commondialog para que aparezcan 2 impresoras, estoy en red.
en el commandialog tengo puesto la propiedad printerdefault en TRUE para que me deje imprimir.
PERO, cuando elijo la que no es predeterminada me pone predeterminada la que elegi y a pesar que vuelvo a poner predeterminada la primera no pasa nada . COMO HAGO?

mis instrucciones:
Private Sub IMPRIMIR_Click()
Dim amelia As Object
Set amelia = Printers(1)
On Error GoTo errorsub:
CommonDialog1.ShowPrinter (aqui elijo la segunda)
conectarejer
DRtabresp.PrintReport
While DRtabresp.AsyncCount > 0
DoEvents
Wend
Unload DRtabresp
Set DRtabresp = Nothing
desconectarejer
Set Printer = amelia (vuelvo a poner la primera predeterminada)
Exit Sub
errorsub:
Exit Sub

End Sub
DESDE ya agradezco si me pueden solucionar mi inquietud !!
GRACIAS !!!

Tengo el mismo problema, lo pudiste solucionar??
Gracias