Default printer

[CoC]

Hi...

i faced a problem where i need to set back the original default printer after the user change the default printer by using common dialog control.
i can get the original default printer name before the user change the selection, but how can i can change it back to the original default automatically after the user finish printing ?
i need to fix this problem urgently.....
really appreciate who can help me to overcome this problem.

Thanks thanks a lot...


rdgs.
coc

 

[dm7941]

This should help

Dim printername As String 'your old printer's devicename
Dim X As Printer
For Each X In Printers
If X.DeviceName = printername Then 'find a printer that matches the devicename
Set Printer = X ' set that printer as Default
Exit For 'stop looking!
End If
Next

David Moore
dm7941@sbc.com