DECLARE INTEGER OpenPrinter IN winspool.drv; > STRING @lpname, INTEGER @hPrinter, STRING @pDevMode >DECLARE INTEGER DeletePrinter IN winspool.drv; > INTEGER hPrinter >DECLARE INTEGER ClosePrinter IN winspool.drv; > INTEGER hPrinter >lcname = "LPT1:" >lnhandle = 0 >IF OpenPrinter(@lcname, @lnhandle, 0) # 0 > = DeletePrinter(lnhandle) > = ClosePrinter(lnhandle) >ELSE > ? "Can't open printer!" >ENDIFGeorge