What I would like to do is to change the default printer by another one before calling the ShowPrinter.
Here is my code, but when I call the printer dialog box, the printer specified is the default printer but not the one I selected.

Printer_Name is a global which contains the printer I want to select (\\SERVER\PRINTERNAME)

Dim prt As Printer
For Each prt In Printers
If LCase(prt.DeviceName) = LCase(Printer_Name) Then
Set Printer = prt
GoTo PrintDialog
End If
Next prt
MsgBox "Printer not define: " & Printer_Name, vbCritical
Exit Sub
PrintDialog:
CMDialog.ShowPrinter


Thanks for your help !...
Thierry

[email protected]