分栏打印预览易语言源码

多页分栏打印预览使文档分页分栏打印，没有打印机可以先预览。

@易语言在线学习

.版本 2

.子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 i, 整数型
.局部变量 a
.局部变量 b
.局部变量 t
.局部变量 n
.局部变量 h
.局部变量 l
.局部变量 j
.局部变量 m

数据源1.数据提供者 ＝ “通用提供者1”
.如果真 (数据源1.从文件读 (“fy.grd”) ＝ 假)  ' 这次从文件读入表格样板到基本情况提供者,用作演示模板的不同来源
    信息框 (“找不到表格模板!”, 0, “错误”)
    返回 ()
.如果真结束
打开 (“fy.edb”, , , , , , )
置当前库 (“fy”)
到首记录 ()  ' 本源码来自三叶资源网(www.sanye.cx)
n ＝ 取整 (取记录数 () ÷ 6)
h ＝ 数据源1.取行数 ()
l ＝ 数据源1.取列数 ()
.计次循环首 (n, t)
    表格1.复制 (1, 1, 24, 数据源1.取列数 ())
    表格1.粘贴 (数据源1.取行数 () ＋ 1, 1)
.计次循环尾 ()
t ＝ 1
.计次循环首 (h × n, t)
    数据源1.置行高 (h ＋ t, 1, 数据源1.取行高 (t ％ h))
.计次循环尾 ()
.如果 (取记录数 () ÷ 6 ＞ n)
    n ＝ n ＋ 1
.否则

.如果结束

.计次循环首 (n × 6, i)

    .如果 (i ≤ 2)
        a ＝ i
        b ＝ 1
    .否则
        .如果 (i ％ 2 ＝ 0)
            a ＝ 2
            b ＝ i ÷ 2
        .否则
            a ＝ 1
            b ＝ 取整 (i ÷ 2) ＋ 1
        .如果结束

    .如果结束
    数据源1.置文本 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 2, 读 (1))
    数据源1.合并 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 2, 2, 1)
    数据源1.合并 (8 × (b － 1) ＋ 2, (a － 1) × 3 ＋ 1, 2, 1)
    数据源1.置文本 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 2, 读 (2))
    数据源1.合并 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 2, 2, )
    数据源1.合并 (8 × (b － 1) ＋ 4, (a － 1) × 3 ＋ 1, 2, )
    数据源1.置文本 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 2, 读 (3))
    数据源1.合并 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 2, 2, )
    数据源1.合并 (8 × (b － 1) ＋ 6, (a － 1) × 3 ＋ 1, 2, )
    跳过 ()
.计次循环尾 ()