>Yes , I can see the printer in the printers window, set up for sharing
Brian,

Try

lcPrinterName = "\\hp laserjet 1200 series pcl 6 on host"
SET PRINTER TO NAME (lcPrinterName)
? SET("PRINTER", 3)
* And 
lcPrinterName = GETPRINTER()     && Choose "\\hp laserjet 1200 series pcl 6 on host"
SET PRINTER TO NAME (lcPrinterName)
? SET("PRINTER", 3)

Does any of above works?