>>-SysWinSetDefaultPrinter(description)------------------------><
Sets the default printer.
Parameter:
Must have the form "Printername,Drivername,Portname".
Return codes:
Success
System error codes (use SysGetErrortext() to get a description of the error)
Example:
/* set default printer */
default = SysWinGetDefaultPrinter()
parse var default default",".
if SysWinGetPrinters(list.) == 0 then do
say "List of available printers (* = default):"
do i=1 to list.0
parse var list.i pname",".
if pname == default then
say i list.i "*"
else
say i list.i
end
say
say "Please enter number of new default printer (0 = keep default)"
pull i
if i > 0 then call SysWinSetDefaultPrinter(list.i)
end
exit