Set Printer To Name GetPrinter() && 选择打印机 Use <数据表名> Copy To DYB For 日期 = Date() Use DYB _SCREEN.VISIBLE = .T. DEFINE WINDOW DYCK AT 0,0 SIZE 41,132 TITLE (BT1) SYSTEM GROW FLOAT ZOOM CLOSE ACTIVATE WINDOW DYCK REPORT FORM <报表格式文件> PREVIEW WINDOW DYCK && 向屏幕和打印机输出 RELEASE WINDOW DYCK _SCREEN.VISIBLE = .F. USE Delete File DYB.DBF && 在【报表格式文件】的表头部分使用【_pageNo】函数可以自动测试 Right(Str(1000+_PageNo), 3) && 前加【0】页次表达式