高级表格如何按页码打印

xiaocaicai

如果高级表格打印时有6页，如何设置先打印1、3、5页，再打印2、4、6页。

10008508

两种方法

xizhihan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总页数	整数型

子程序名	返回值类型	公开	备 注
_按钮_打印_被单击

' 获取总页数（这里假设总页数已知为6）
总页数 ＝ 6
' 第一步：打印奇数页
打印设置 (1, 总页数, 真) ' 真表示执行打印
' 弹出提示让用户翻转纸张
信息框 ("请调整纸张准备打印偶数页", 0, , )
' 第二步：打印偶数页
打印设置 (2, 总页数, 真)

子程序名	返回值类型	公开	备 注
打印设置
参数名	类 型	参考	可空	数组	备 注
起始页	整数型
结束页	整数型
是否执行打印	逻辑型

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (结束页, i)
' 判断奇偶页
如果 (起始页 ＝ 1 且 i ％ 2 ＝ 1)  ' 奇数页模式
高级表格1.当前页 ＝ i
.否则如果 (起始页 ＝ 2 且 i ％ 2 ＝ 0)  ' 偶数页模式
高级表格1.当前页 ＝ i
到循环尾 ()

' 设置打印机
打印机对象.置打印区域 ( #打印区域_工作簿 )
打印机对象.置边距 (500, 500, 500, 500) ' 单位：0.01英寸

如果 (是否执行打印)
打印机对象.打印 (假, )  ' 不显示对话框直接打印
打印机对象.预览打印 ()    ' 用于测试的预览模式

计次循环尾 ()

i支持库列表	支持库注释
eGrid	高级表格支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eGrid<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总页数, 整数型<br /> <br /> .子程序 _按钮_打印_被单击<br /> ' 获取总页数（这里假设总页数已知为6）<br /> 总页数 ＝ 6<br /> <br /> ' 第一步：打印奇数页<br /> 打印设置 (1, 总页数, 真) ' 真表示执行打印<br /> <br /> ' 弹出提示让用户翻转纸张<br /> 信息框 ("请调整纸张准备打印偶数页", 0, , )<br /> <br /> ' 第二步：打印偶数页<br /> 打印设置 (2, 总页数, 真)<br /> <br /> .子程序 打印设置<br /> .参数 起始页, 整数型<br /> .参数 结束页, 整数型<br /> .参数 是否执行打印, 逻辑型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (结束页, i)<br />     ' 判断奇偶页<br />     .如果 (起始页 ＝ 1 且 i ％ 2 ＝ 1)  ' 奇数页模式<br />         高级表格1.当前页 ＝ i<br />     .否则如果 (起始页 ＝ 2 且 i ％ 2 ＝ 0)  ' 偶数页模式<br />         高级表格1.当前页 ＝ i<br />     .否则<br />         到循环尾 ()<br />     .如果结束<br />     <br />     ' 设置打印机<br />     打印机对象.置打印区域 (#打印区域_工作簿) <br />     打印机对象.置边距 (500, 500, 500, 500) ' 单位：0.01英寸<br />     <br />     .如果 (是否执行打印)<br />         打印机对象.打印 (假, )  ' 不显示对话框直接打印<br />     .否则<br />         打印机对象.预览打印 ()    ' 用于测试的预览模式<br />     .如果结束<br /> .计次循环尾 ()

如果要其它功能，比如说纸张检测之类的和我私信


补充内容 (2025-4-5 19:48):
完了忘设打印机对象了。自己修补修补吧