setpr.prg

来自「一个功能较单一的企业工资管理系统。用FoxPro开发」· PRG 代码 · 共 8 行

STORE PRINTSTATUS() TO glReady
IF NOT glReady
	=messagebox("打印机未准备好，请检查！",0+48,"信息提示")
ELSE
	*set printer on prompt
	sys(1037)
ENDIF
return