Sure :-)

This code works in win2k and not winxp......

oDefinePrinter = CREATEOBJECT("WScript.Network")
cNewPrinter=GETPRINTER()
oDefinePrinter.SetDefaultPrinter(cNewPrinter)
cPrinterName = '"'+allt(cNewPrinter)+'"'
set printer to name &cPrinterName

Thanks!

-Greg