&;&;取得纸张宽度
use in 'mPrint' &;&;关闭xxx.frx文件
if sSIZE=mSIZE &;&;如果相符,则正常打印
report form xxx.frx to printer
else
Messagebox('请设定打印机纸张为自定义:长='+sLEN+',宽='+sWIDTH,0+48+0,'提示')
report form xxx.frx to printer prompt &;&;打印前先打开打印机设置对话窗口
endi
(5).不让打印的结果显示在屏幕上
report form xxx.frx to printer Noconsole
(6).打印或打印预览时,如何使
系统打印工具条不出现系统提供的打印工具条,我们无法检测其各按钮的事件,不能掌握用户当时操作的情况,那如何不让它出现呢?
首先您得做一个表单(最好是模式表单),用于代替系统的预览窗口(Preview),然后:
do form dybd&;&;打开这个表单
report form xxx.frx windows dybd
这样系统提供的打印工具条就不会出现了。
当然如果自己再做个类似于打印工具条的类。