📄 bb_prev.prg
字号:
para cReportName,cTitleName
public totalpages
totalpages=0
set message to '预览报表...'
DEFINE WINDOW WinRptPre FROM 0,0 TO SROWS()-10,SCOLS()-10 TITLE '预览报表:'+cTitleName ;
system CLOSE FLOAT ;
GROW ZOOM ICON FILE 'SEARCH.ICO'
set message to '正在计算'+cTitleName+'总页数...'
report form &cReportName nocons environment
TotalPages=_pageno
activate windows WinRptPre
ZOOM WINDOW WinRptPre MAX
REPORT FORM &cReportName PREVIEW WINDOW WinRptPre nowait
SELECT a
USE &dataname
release window WinRptPre
set message to ''
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -