>In VFP 6.0, is there a way to reset the Windows Default Printer in code rather than using a dialog box?
>
>We have a function that saves the current Windows Default Printer to a variable, uses the Microsoft Common Dialog Box to select a new Windows Default Printer for printing a report, then I need to reset the Windows Default Printer back to the original value. So far, I have not found a way to do it.
>
>We need to use the Microsoft Common Dialog Box so we can enable/disable certain controls, and be able to pass a default number of copies into the dialog.
>
>Any help would be greatly appreciated.
>
>
>Bryan A. Jackson
>for Rudy Nieves
If you have Word installed you can try something like......
oWord = CREATEOBJECT("word.application")
oDialog = oWord.Dialogs(97)
WITH oDialog
.Printer = "Printer Name"
.Execute
ENDWITH