开源GT_打印模块

开源GT_打印模块

.版本 2
.支持库 eGrid
.支持库 iext
.支持库 spec

.子程序 GJ_打印, 逻辑型, 公开, 打印文件执行完毕返回（真）
.参数 高级表格, 高级表格, 可空, 选择当前窗口表格进行载入
.参数 超级列表框, 超级列表框, 可空, 选择当前窗口表格进行载入
.参数 表头_文本, 文本型, , 请输入表头文本
.参数 页眉_文本多行, 文本型, 可空, 如空（不显示页眉文本） 支持多行文本   多行已 分隔符号（&-&）
.参数 页脚_文本多行, 文本型, 可空, 如空（不显示页脚文本） 支持多行文本   多行已 分隔符号（&-&）
.参数 页_行数, 整数型, 可空, 如空默认为1 例如设置10行打印整页
.参数 表_列号, 整数型, 可空 数组, { 1, 2, 3 }
.参数 表_列宽, 整数型, 可空 数组, { 10, 10, 10 }
.参数 列号_累计求和, 整数型, 可空, 可省略（不显示表尾计算方式） 
.参数 表头设置_行高_字体属性_字体_大小, 文本型, 可空 数组, 空默认为{ “10”, “1”, “幼圆”, “15” } 数组4；1、#粗体； 2、#斜体； 4、#下划线； 8、#删除线
.参数 页眉设置_行高_字体属性_字体_大小, 文本型, 可空 数组, 空默认为 { “20”, “0”, “宋体”, “8” } 数组4；1、#粗体； 2、#斜体； 4、#下划线； 8、#删除线
.参数 页脚设置_行高_字体属性_字体_大小, 文本型, 可空 数组, 空默认为 { “20”, “0”, “幼圆”, “9” } 数组4；1、#粗体； 2、#斜体； 4、#下划线； 8、#删除线
.参数 列表设置_行高_字体属性_字体_大小, 文本型, 可空 数组, 空默认为 { “8”, “0”, “幼圆”, “8” } 数组4；1、#粗体； 2、#斜体； 4、#下划线； 8、#删除线
.参数 列表标题设置_行高_字体属性_字体_大小, 文本型, 可空 数组, 空默认为 { “10”, “1”, “幼圆”, “9” } 数组4；1、#粗体； 2、#斜体； 4、#下划线； 8、#删除线
.参数 文件_格式, 逻辑型, 可空,  真（尾页页脚文本可视）假（每页页脚文本可视） 如果页脚文本不等于空默认为假
.参数 可见页码, 逻辑型, 可空, 页码设置  真（可视真）假（可视假）
.参数 列号_累计求和字体大小, 整数型, 可空, （默认字体大小为8号）针对 列号_累计求和 不为空情况下可设置
.参数 纸张方向, 逻辑型, 可空, 真（#横向）假（#纵向）默认为假
.参数 纸张类型, 整数型, 可空, 1、#A3纸  2、#A4纸 3、#A5纸 4、#B4纸 5、#B5纸 6、#四开  7、#十六开 8、#三十二开   空默认为（2）
.参数 序号, 逻辑型, 可空, 真（可见列表序号）  默认为  假（不显示）序号为自动排序
.参数 logo图标_位置, 整数型, 可空, 位置（根据当前打印表列数 来自定义预算logo图标宽度 所需要占用的列数）例如占用2列列数输入2即可  从1开始
.参数 图片, 字节集, 可空, 调用logo图片框接口到表格
.参数 打印距离_左边_右边_上边_下边, 整数型, 可空 数组, 调试打印位置距离数组为4 为空默认为{ 8, 8, 8, 10 }
.参数 打印输出方式, 逻辑型, 可空, 真（打印预览）假（打印）默认为真
.参数 显示页码, 逻辑型, 可空, 这里显示页码是在每页行数下方显示
.局部变量 打印设置, 打印设置信息
.局部变量 a, 整数型
.局部变量 列宽, 整数型
.局部变量 总列宽, 整数型
.局部变量 列数, 整数型
.局部变量 行数, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型
.局部变量 单元格文本, 文本型
.局部变量 _表_, 逻辑型
.局部变量 表头数, 整数型
.局部变量 分页, 整数型
.局部变量 c, 整数型
.局部变量 数_a, 双精度小数型
.局部变量 数_b, 双精度小数型
.局部变量 d, 整数型
.局部变量 变量打印数, 整数型
.局部变量 被动分页, 整数型
.局部变量 _页眉_文本, 文本型, , "0"
.局部变量 _页脚_文本, 文本型, , "0"
.局部变量 取总页, 整数型
.局部变量 整页数, 整数型

载入 (窗口_dy, , 假)
窗口_dy.可视 ＝ 假
' ============   www.sanye.cx  =============--
’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx
’三叶资源网官方④群：72857039
' 投稿邮箱：tg@sanye.cx
' ============ =====================--
’专注易语言，按键精灵等编程源码分享的网站
’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐，
’版权归原作者所有，仅供学习和研究使用。
’转载本站提供的资源请勿删除本说明文件。
' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。
' ============   www.sanye.cx  =============--
' 本源码来自三叶资源网(www.sanye.cx)
置等待鼠标 ()
子窗口句柄 ＝ 1
处理事件 ()


.如果真 (取数组成员数 (表头设置_行高_字体属性_字体_大小) ＞ 4)
    信息框 (“表头数组设置错误，该数组不能大于4”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)

.如果真结束
.如果真 (取数组成员数 (页眉设置_行高_字体属性_字体_大小) ＞ 4)
    信息框 (“页眉数组设置错误，该数组不能大于4”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)
.如果真结束
.如果真 (取数组成员数 (页脚设置_行高_字体属性_字体_大小) ＞ 4)
    信息框 (“页脚数组设置错误，该数组不能大于4”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)
.如果真结束
.如果真 (取数组成员数 (列表设置_行高_字体属性_字体_大小) ＞ 4)
    信息框 (“列表数组设置错误，该数组不能大于4”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)
.如果真结束
.如果真 (取数组成员数 (列表标题设置_行高_字体属性_字体_大小) ＞ 4)
    信息框 (“列表标题数组设置错误，该数组不能大于4”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)
.如果真结束
.如果 (是否为空 (打印距离_左边_右边_上边_下边) ＝ 假)
    .如果真 (取数组成员数 (打印距离_左边_右边_上边_下边) ≠ 4)
        信息框 (“打印距离数组设置错误，该数组不能大于4或小于4”, 0 ＋ #错误图标, “系统提示”, )
        销毁 ()
        返回 (假)
    .如果真结束

.否则
    打印距离_左边_右边_上边_下边 ＝ { 8, 8, 8, 10 }
.如果结束

.如果真 (取数组成员数 (表_列号) ＝ 0)
    信息框 (“当前没有可打印的内容，请选择要打印的列。”, 0 ＋ #错误图标, “系统提示”, )
    销毁 ()
    返回 (假)
.如果真结束

.如果真 (是否为空 (打印输出方式))
    打印输出方式 ＝ 真
.如果真结束

.如果真 (取数组成员数 (表_列宽) ≠ 取数组成员数 (表_列号))
    信息框 (“列宽数组与列号数组数量不一样请重新设置”, #错误图标 ＋ 0 ＋ #错误图标, “列宽数组设置错误”, )
    销毁 ()
    返回 (假)
.如果真结束
.如果真 (取数组成员数 (表头设置_行高_字体属性_字体_大小) ≠ 4)
    信息框 (“表头_行高_字体属性_字体_大小，分别为4个数组”, #错误图标 ＋ 0 ＋ #错误图标, “表头数组设置错误”, )
    销毁 ()
    返回 (假)

.如果真结束
.判断开始 (是否为空 (高级表格))
    行数 ＝ 超级列表框.取表项数 ()
    .如果真 (行数 ＝ 0)
        销毁 ()
        返回 (假)

    .如果真结束
    _表_ ＝ 真
.默认
    行数 ＝ 高级表格.行数 － 1
    .如果真 (行数 ＝ 0)
        销毁 ()
        返回 (假)
    .如果真结束
    _表_ ＝ 假
.判断结束

整页数 ＝ 行数 ＼ 页_行数
.如果真 (整页数 ≥ 0)
    总页数 ＝ 整页数

    .如果真 (行数 ％ 页_行数 ＞ 0)
        总页数 ＝ 整页数 ＋ 1
    .如果真结束
    总页数 － 整页数 ＝ 1
.如果真结束




.如果真 (是否为空 (页脚_文本多行) ＝ 假)
    _页脚_文本 ＝ 分割文本 (页脚_文本多行, “&-&”, )
.如果真结束


.判断开始 (是否为空 (页眉_文本多行) ＝ 假)  ' 这里在增加页眉行数
    _页眉_文本 ＝ 分割文本 (页眉_文本多行, “&-&”, )

    .计次循环首 (取数组成员数 (_页眉_文本), a)
        表头数 ＝ a ＋ 2
    .计次循环尾 ()
    a ＝ 0
.默认
    表头数 ＝ 2
.判断结束

.如果真 (是否为空 (页脚_文本多行) ＝ 假 且 是否为空 (文件_格式) ＝ 真)
    文件_格式 ＝ 假
.如果真结束

.如果真 (是否为空 (纸张类型))
    纸张类型 ＝ 2
.如果真结束
.如果真 (是否为空 (页_行数) 或 页_行数 ＝ 0)
    页_行数 ＝ 1
.如果真结束

.如果真 (是否为空 (列号_累计求和字体大小))
    列号_累计求和字体大小 ＝ 8
.如果真结束

.如果真 (是否为空 (表头设置_行高_字体属性_字体_大小))
    表头设置_行高_字体属性_字体_大小 ＝ { “10”, “1”, “幼圆”, “15” }
.如果真结束
.如果真 (是否为空 (页眉设置_行高_字体属性_字体_大小))
    页眉设置_行高_字体属性_字体_大小 ＝ { “20”, “0”, “宋体”, “8” }
.如果真结束
.如果真 (是否为空 (列表设置_行高_字体属性_字体_大小))
    列表设置_行高_字体属性_字体_大小 ＝ { “8”, “0”, “幼圆”, “8” }
.如果真结束
.如果真 (是否为空 (页脚设置_行高_字体属性_字体_大小))
    页脚设置_行高_字体属性_字体_大小 ＝ { “20”, “0”, “幼圆”, “9” }
.如果真结束
.如果真 (是否为空 (列表标题设置_行高_字体属性_字体_大小))
    列表标题设置_行高_字体属性_字体_大小 ＝ { “10”, “1”, “幼圆”, “9” }
.如果真结束

数据源.数据提供者 ＝ “通用提供者”

.如果真 (取反 (数据源.从字节集读 (#_day_)))
    信息框 (“读取打印模板失败。”, #错误图标 ＋ 0, “失败”)
    返回 (假)
.如果真结束
表格.数据源 ＝ “”
列数 ＝ 取数组成员数 (表_列号)
.如果真 (序号)
    列数 ＝ 列数 ＋ 1
.如果真结束

.如果 (logo图标_位置 ≠ 0 且 是否为空 (图片) ＝ 假)  ' 这里在判断打印标题
    数据源.插入列 (1, 列数 － 1)
    数据源.合并 (1, 1, 1, logo图标_位置)
    数据源.合并 (1, logo图标_位置 ＋ 1, 1, 列数)
    数据源.置类型 (1, 1, 1, logo图标_位置, #图片数据)
    数据源.置数据 (1, 1, 图片)
    数据源.置对齐方式 (1, 1, 1, 1, #缩放图片)
    数据源.置文本 (1, logo图标_位置 ＋ 1, 表头_文本)
    数据源.置对齐方式 (1, logo图标_位置 ＋ 1, 1, 列数, #中左)
    数据源.置行高 (1, logo图标_位置 ＋ 1, 到数值 (表头设置_行高_字体属性_字体_大小 [1]) × 10)
    数据源.置字体属性 (1, logo图标_位置 ＋ 1, 1, 1, 到数值 (表头设置_行高_字体属性_字体_大小 [2]))  ' 粗体字
    数据源.置字体名 (1, logo图标_位置 ＋ 1, 1, 数据源.取列数 (), 表头设置_行高_字体属性_字体_大小 [3])  ' 字体
    数据源.置字体尺寸 (1, logo图标_位置 ＋ 1, 1, 数据源.取列数 (), 到数值 (表头设置_行高_字体属性_字体_大小 [4]) × 5)

.否则
    数据源.插入列 (1, 列数 － 1)
    数据源.合并 (1, 1, 1, 列数)
    数据源.置文本 (1, 1, 表头_文本)
    数据源.置行高 (1, 1, 到数值 (表头设置_行高_字体属性_字体_大小 [1]) × 10)
    数据源.置字体属性 (1, 1, 1, 1, 到数值 (表头设置_行高_字体属性_字体_大小 [2]))  ' 粗体字
    数据源.置对齐方式 (1, 1, 1, 列数, #中中)
    数据源.置字体名 (1, 1, 1, 数据源.取列数 (), 表头设置_行高_字体属性_字体_大小 [3])  ' 字体
    数据源.置字体尺寸 (1, 1, 1, 数据源.取列数 (), 到数值 (表头设置_行高_字体属性_字体_大小 [4]) × 5)

.如果结束


.如果真 (是否为空 (页眉_文本多行) ＝ 假)
    .计次循环首 (取数组成员数 (_页眉_文本), a)
        数据源.添加行 ()
        数据源.合并 (数据源.取行数 (), 1, 1, 列数)
        数据源.置对齐方式 (数据源.取行数 (), 1, 1, 列数, #中左)
        数据源.置行高 (数据源.取行数 (), 1, 到数值 (页眉设置_行高_字体属性_字体_大小 [1]) × 10)
        数据源.置字体属性 (数据源.取行数 (), 1, 1, 列数, 到数值 (页眉设置_行高_字体属性_字体_大小 [2]))  ' 粗体字
        数据源.置字体名 (数据源.取行数 (), 1, 1, 列数, 页眉设置_行高_字体属性_字体_大小 [3])  ' 字体
        数据源.置字体尺寸 (数据源.取行数 (), 1, 列数, 数据源.取列数 (), 到数值 (页眉设置_行高_字体属性_字体_大小 [4]) × 5)
        数据源.置文本 (数据源.取行数 (), 1, _页眉_文本 [a])
    .计次循环尾 ()

.如果真结束


.如果 (序号)
    数据源.添加行 ()
    数据源.置行高 (数据源.取行数 (), 1, 80)
    数据源.置对齐方式 (数据源.取行数 (), 1, 1, 列数, #中中)
    .计次循环首 (列数, a)
        .如果 (a ＝ 1)
            数据源.置文本 (数据源.取行数 (), a, “编码”)
            数据源.置列宽 (a, 1, 120)
            数据源.置行高 (数据源.取行数 (), 1, 到数值 (列表标题设置_行高_字体属性_字体_大小 [1]) × 10)
            数据源.置字体属性 (数据源.取行数 (), 1, 1, 列数, 到数值 (列表标题设置_行高_字体属性_字体_大小 [2]))  ' 粗体字
            数据源.置字体名 (数据源.取行数 (), 1, 1, 列数, 列表标题设置_行高_字体属性_字体_大小 [3])  ' 字体
            数据源.置字体尺寸 (数据源.取行数 (), 1, 1, 列数, 到数值 (列表标题设置_行高_字体属性_字体_大小 [4]) × 5)



        .否则
            .如果 (_表_)
                数据源.置文本 (数据源.取行数 (), a, 超级列表框.取列标题 (表_列号 [a － 1]))
            .否则
                数据源.置文本 (数据源.取行数 (), a, 高级表格.取数据 (0, 表_列号 [a － 1]))
            .如果结束

            数据源.置列宽 (a, 1, 表_列宽 [a － 1] × 10)
        .如果结束


    .计次循环尾 ()

.否则
    数据源.添加行 ()
    数据源.置行高 (数据源.取行数 (), 1, 80)
    数据源.置对齐方式 (数据源.取行数 (), 1, 1, 列数, #中中)
    .计次循环首 (列数, a)

        .如果 (_表_)
            数据源.置文本 (数据源.取行数 (), a, 超级列表框.取列标题 (表_列号 [a]))
            数据源.置列宽 (a, 1, 表_列宽 [a] × 10)

        .否则
            数据源.置文本 (数据源.取行数 (), a, 高级表格.取数据 (0, 表_列号 [a]))
            数据源.置列宽 (a, 1, 表_列宽 [a] × 10)
        .如果结束



    .计次循环尾 ()
.如果结束

.计次循环首 (行数, a)  ' 记数表格所有数据
    .如果 (_表_)
        数_b ＝ 数_b ＋ 到数值 (超级列表框.取标题 (a － 1, 列号_累计求和))

    .否则
        数_b ＝ 数_b ＋ 到数值 (高级表格.取数据 (a, 列号_累计求和))
    .如果结束


.计次循环尾 ()
' 调试输出 (1)
' 返回 (真)
' 当前页 ＝ 1
.计次循环首 (行数, a)
    数据源.添加行 ()
    数据源.置对齐方式 (数据源.取行数 (), 1, 1, 列数, #中中)
    数据源.置行高 (数据源.取行数 (), 1, 到数值 (列表设置_行高_字体属性_字体_大小 [1]) × 10)
    数据源.置字体属性 (数据源.取行数 (), 1, 1, 列数, 到数值 (列表设置_行高_字体属性_字体_大小 [2]))  ' 粗体字
    数据源.置字体名 (数据源.取行数 (), 1, 1, 列数, 列表设置_行高_字体属性_字体_大小 [3])  ' 字体
    数据源.置字体尺寸 (数据源.取行数 (), 1, 1, 列数, 到数值 (列表设置_行高_字体属性_字体_大小 [4]) × 5)
    数据源.加线条 (表头数, 1, 1, 列数, #左边框 ＋ #上边框 ＋ #右边框 ＋ #下边框 ＋ #水平线 ＋ #垂直线)
    .如果真 (序号 ＝ 真 且 a ≤ 行数)
        数据源.置文本 (数据源.取行数 (), 1, 到文本 (a))
    .如果真结束

    .判断开始 (序号 ＝ 真)
        .计次循环首 (列数 － 1, b)
            .如果 (_表_)
                单元格文本 ＝ 到文本 (超级列表框.取标题 (a － 1, 表_列号 [b]))
            .否则
                单元格文本 ＝ 到文本 (高级表格.取数据 (a, 表_列号 [b]))

            .如果结束
            数据源.置文本 (数据源.取行数 (), b ＋ 1, 单元格文本)
            .' 如果真 (纸张类型 ＝ 2)
                ' 黑夹子 (到数值 (数据源.取行高 (数据源.取行数 ())), 到数值 (数据源.取列宽 (b ＋ 1)), 取字节集长度 (到字节集 (单元格文本)))
            .如果真结束

            数据源.加线条 (数据源.取行数 (), 1, 1, b ＋ 1, #左边框 ＋ #右边框 ＋ #下边框 ＋ #水平线 ＋ #垂直线)
        .计次循环尾 ()

    .默认
        .计次循环首 (列数, b)
            .如果 (_表_)
                单元格文本 ＝ 到文本 (超级列表框.取标题 (a － 1, 表_列号 [b]))
            .否则
                单元格文本 ＝ 到文本 (高级表格.取数据 (a, 表_列号 [b]))
            .如果结束

            .' 如果真 (纸张类型 ＝ 2)
                ' 黑夹子 (到数值 (数据源.取行高 (数据源.取行数 ())), 到数值 (数据源.取列宽 (b ＋ 1)), 取字节集长度 (到字节集 (单元格文本)))
            .如果真结束

            数据源.置文本 (数据源.取行数 (), b, 单元格文本)
            数据源.加线条 (数据源.取行数 (), 1, 1, b ＋ 1, #左边框 ＋ #右边框 ＋ #下边框 ＋ #水平线 ＋ #垂直线)
            ' 数据源.加线条 (数据源.取行数 (), 1, 1, b ＋ 1, #左边框 ＋ #右边框 ＋ #水平线 ＋ #垂直线)
            ' 数据源.加线条 (数据源.取行数 (), 1, 1, b ＋ 1, #下边框 ＋ #水平线)
        .计次循环尾 ()

    .判断结束

    .如果真 (取数组成员数 (_页脚_文本) ≠ 0 且 是否为空 (列号_累计求和) ＝ 假)  ' 这里是所有条件满足执行命令
        分页 ＝ 分页 ＋ 1
        .如果 (_表_)
            数_a ＝ 数_a ＋ 到数值 (超级列表框.取标题 (a － 1, 列号_累计求和))
        .否则
            数_a ＝ 数_a ＋ 到数值 (高级表格.取数据 (a, 列号_累计求和))
        .如果结束

        .如果真 (分页 ＝ 页_行数 或 a ＝ 行数)  ' 判断是否加了表尾 a代表是否取到了页尾最后一行文本如果取到了就添加页尾信息

            添加表尾合计行 (列数, 数_a, 数_b, 列表设置_行高_字体属性_字体_大小, 列号_累计求和字体大小, b)
            连续赋值 (0, 分页, 数_a)

            .判断开始 (分页 ＝ 0 且 文件_格式 ＝ 假 或 a ＝ 行数)  ' 这里是每页显示页脚 添加页脚文本
                添加页脚 (_页脚_文本, 列数, 页脚设置_行高_字体属性_字体_大小)
                .如果真 (显示页码)
                    当前页 ＝ 1 ＋ 当前页
                    添加页码 ()

                .如果真结束

            .判断 (分页 ＝ 0 且 文件_格式 ＝ 真 或 a ＝ 行数)
                .如果真 (显示页码)
                    当前页 ＝ 1 ＋ 当前页
                    添加页码 ()
                .如果真结束

            .默认
                .如果真 (文件_格式 ＝ 真 且 a ≠ 行数)
                    填补空行 (_页脚_文本, 列数)
                .如果真结束

            .判断结束





        .如果真结束


    .如果真结束
    .如果真 (取数组成员数 (_页脚_文本) ＝ 0 且 是否为空 (列号_累计求和) ＝ 假)
        分页 ＝ 分页 ＋ 1
        .如果 (_表_)
            数_a ＝ 数_a ＋ 到数值 (超级列表框.取标题 (a － 1, 列号_累计求和))
        .否则
            数_a ＝ 数_a ＋ 到数值 (高级表格.取数据 (a, 列号_累计求和))
        .如果结束

        .如果真 (分页 ＝ 页_行数 或 a ＝ 行数)  ' 判断是否加了列求和
            添加表尾合计行 (列数, 数_a, 数_b, 列表设置_行高_字体属性_字体_大小, 列号_累计求和字体大小, b)
            连续赋值 (0, 分页, 数_a)
            .如果真 (显示页码)
                当前页 ＝ 1 ＋ 当前页
                添加页码 ()
            .如果真结束

        .如果真结束

    .如果真结束

    .如果真 (取数组成员数 (_页脚_文本) ≠ 0 且 是否为空 (列号_累计求和) ＝ 真)
        分页 ＝ 分页 ＋ 1

        .如果真 (分页 ＝ 页_行数 或 a ＝ 行数)  ' 判断是否加了表尾 a代表是否取到了页尾最后一行文本如果取到了就添加页尾信息
            分页 ＝ 0
            .判断开始 (分页 ＝ 0 且 文件_格式 ＝ 假 或 a ＝ 行数)  ' 这里是每页显示页脚 添加页脚文本
                添加页脚 (_页脚_文本, 列数, 页脚设置_行高_字体属性_字体_大小)
                .如果真 (显示页码)
                    当前页 ＝ 1 ＋ 当前页
                    添加页码 ()
                .如果真结束

            .判断 (分页 ＝ 0 且 文件_格式 ＝ 真 或 a ＝ 行数)
                .如果真 (显示页码)
                    当前页 ＝ 1 ＋ 当前页
                    添加页码 ()
                .如果真结束

            .默认
                .如果真 (文件_格式 ＝ 真 且 a ≠ 行数)
                    填补空行 (_页脚_文本, 列数)
                .如果真结束

            .判断结束




        .如果真结束

    .如果真结束

    .如果真 (取数组成员数 (_页脚_文本) ＝ 0 且 是否为空 (列号_累计求和) ＝ 真)
        分页 ＝ 分页 ＋ 1

        .如果真 (分页 ＝ 页_行数 或 a ＝ 行数)  ' 判断是否加了表尾 a代表是否取到了页尾最后一行文本如果取到了就添加页尾信息
            分页 ＝ 0
            .如果真 (显示页码)
                当前页 ＝ 1 ＋ 当前页
                添加页码 ()
            .如果真结束

        .如果真结束

    .如果真结束

.计次循环尾 ()

.判断开始 (是否为空 (页脚_文本多行) ＝ 假 且 是否为空 (列号_累计求和) ＝ 假)

    .如果真 (显示页码 ＝ 真 且 文件_格式 ＝ 真)
        变量打印数 ＝ 页_行数 ＋ 取数组成员数 (_页脚_文本) ＋ 1
        调试输出 (变量打印数)
        ' 变量打印数 ＝ 页_行数 ＋ 1
    .如果真结束

    .如果真 (显示页码 ＝ 真 且 文件_格式 ＝ 假)
        变量打印数 ＝ 页_行数 ＋ 取数组成员数 (_页脚_文本) ＋ 2
    .如果真结束

    .如果真 (显示页码 ＝ 假 且 文件_格式 ＝ 假)
        变量打印数 ＝ 页_行数 ＋ 取数组成员数 (_页脚_文本) ＋ 1
    .如果真结束



.判断 (是否为空 (页脚_文本多行) ＝ 真 且 是否为空 (列号_累计求和) ＝ 假)
    .如果 (显示页码)
        变量打印数 ＝ 页_行数 ＋ 2
    .否则
        变量打印数 ＝ 页_行数 ＋ 1
    .如果结束





.判断 (是否为空 (页脚_文本多行) ＝ 假 且 是否为空 (列号_累计求和) ＝ 真)
    .如果 (显示页码)
        变量打印数 ＝ 页_行数 ＋ 取数组成员数 (_页脚_文本) ＋ 1
        ' 调试输出 (变量打印数, “AAA”)
    .否则
        变量打印数 ＝ 页_行数 ＋ 取数组成员数 (_页脚_文本)
        ' 调试输出 (变量打印数, “BBBB”)
    .如果结束



.判断 (是否为空 (页脚_文本多行) ＝ 真 且 是否为空 (列号_累计求和) ＝ 真)
    .如果 (显示页码)
        变量打印数 ＝ 页_行数 ＋ 1
        ' 调试输出 (变量打印数, “AAA”)
    .否则
        变量打印数 ＝ 页_行数
        ' 调试输出 (变量打印数, “BBBB”)
    .如果结束

.默认

.判断结束




打印设置 ＝ 数据源.取打印设置 ()
打印设置.纸张类型 ＝ 纸张类型
打印设置.纸张方向 ＝ 选择 (纸张方向, #横向, #纵向)
打印设置.上边距 ＝ 打印距离_左边_右边_上边_下边 [3] × 10
打印设置.下边距 ＝ 打印距离_左边_右边_上边_下边 [4] × 10
打印设置.左边距 ＝ 打印距离_左边_右边_上边_下边 [1] × 10
打印设置.右边距 ＝ 打印距离_左边_右边_上边_下边 [2] × 10
打印设置.每页打印行数 ＝ 变量打印数
.如果真 (可见页码)
    打印设置.页号位置 ＝ #下中页号
.如果真结束

数据源.置打印设置 (打印设置)
数据源.置表头行数 (表头数)
表格.数据源 ＝ “数据源”
.如果 (打印输出方式 ＝ 真)
    表格.打印预览 ()
.否则
    表格.打印 (真, 表头_文本)
.如果结束

' 调试输出 (当前页, 总页数)
恢复鼠标 ()
程序_窗口 ()
时钟1.时钟周期 ＝ 200
.判断开始 (a － 1 ＝ 行数)
    返回 (真)
.默认
    返回 (假)
.判断结束

@huage88948216

[Download]

备份下载

百度下载 提取码：3omd

[/Download]