Set Default Printer Win2000 vs Vista

[JICGreg]

The following code will work on my windows 2000 machine but not my vista machine:

oNet = createobject("WScript.Network")
oNet.SetDefaultPrinter("Phaser 8400N Color")

When I try to run it on the vista machine I receive the following error "OLE IDispatch exceptio code 0 from WSHNetwork Setdefaultprinter: There is no printer called "Phaser 8400N Color"

If I try this code on the vista machine
*oNet.SetDefaultPrinter("\\servername\Phaser 8400N Color")

the code executes fine but it then does not work on the win2000 machine.

Thanks for any help.

 

[DougHennig]

How about wrapping the code:

if os(3) >= '6'
oNet.SetDefaultPrinter("\\servername\Phaser 8400N Color")
else
oNet.SetDefaultPrinter("Phaser 8400N Color")
endif

Doug

 

[Mike Lewis]

I'm probably missing something obvious, but is there any reason why you can't do this with a native VFP command:

SET PRINTER TO NAME "\\servername\Phaser 8400N ColoR"

mIKE


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[markros]

Mike Lewis,

Your code doesn't change the default printer.

 

[Mike Lewis]

Markros,

Your code doesn't change the default printer.

It certainly changes the VFP default printer. Are you saying that's not what JICCreg wants?

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[Mike Lewis]

Assuming the requirement is to change the Windows default printer, something like this should work:

DECLARE Long SetDefaultPrinter ;
  In WINSPOOL.DRV String pPrinter
lcPrinter = GETPRINTER()
IF NOT EMPTY(lcPrinter)
  SetDefaultPrinter(lcPrinter)
ENDIF

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[markros]

Yes, I thought that the thread originator wanted to change Windows Default printer, not VFP printer. Your last code solves this problem.

 

[Mike Lewis]

Markros,

I think you're right. But it looks like he's gone away, so we might never know.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk