get name of windows default printer

[repete]

From Mike Gagnon's "Windows scripting guide, For VFP" (refer Faq184-2977) I can set a default printer in VFP by using the following code.

oNet = CREATEOBJECT("WScript.Network")
oNet.SetDefaultPrinter("\\slp_nt_termserv\Panasonic Printer")

Before I issue those commands, is there a way I can capture the existing windows default printer name, so that later in my code I can reset the default printer back to what it was. ?

Pete Bloomfield
Down Under

 

[repete]

ok, so i should have looked harder......

?set("printer",2)

the wonderful thing here is that i found the answer on tek-tips, thanks guys...


Pete Bloomfield
Down Under

 

[ChrisRChamberlain]

G'day Pete

lcDefaultWindowsPrinter = SET([PRINTER],2)

FAQ184-2483 - the answer to getting answered.​

Chris