表格打印自定义纸张的笨办法

yuyessa

一只被表格打印不能自定义纸张类型的问题苦恼了一个多月，终于找到了比较笨的办法！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
打印设置	打印设置信息

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

如果真 (数据源1.打印设置 () ＝ 真)
打印设置 ＝ 数据源1.取打印设置 ()
编辑框1.内容 ＝ 到文本 (打印设置.纸张类型)
' 自定义纸张获取到了，你想怎么处理呢？我用的办法是写配置项
' 如果需要其他参数清自行处理
写配置项 (取运行目录 () ＋ “\打印配置项”, “打印配置”, “自定义纸张”, 编辑框1.内容)

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

如果真 (编辑框2.内容 ＝ “” 或 编辑框3.内容 ＝ “”)
信息框 (“请设置纸张宽和高”, 0, , )
返回 ()
如果真 (编辑框4.内容 ＝ “”)
信息框 (“纸张名称不能为空”, 0, , )
返回 ()
' 添加或修改自定义纸张类型。本方法仅在WindowsNT/2000/XP下有效，且要求具有打印机驱动的完全控制权限。注意：太小或太大的纸张大小和页边距，可能不被特定的打印所支持。本方法所设置的自定义纸张类型，可用于“开始打印()”的第三个参数“纸张类型”。添加或修改后的自定义纸张类型可以在“当前默认打印机驱动所属计算机”的“开始-设置-打印机和传真-文件-服务器属性”中看到（仅限WindowsNT/2000/XP系统）。本命令为高级对象成员命令。
如果 (打印机1.置自定义纸张类型 (编辑框4.内容, 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 0, 0, 0, 0) ＝ 假)
信息框 (“置自定义纸张失败”, 0, , )
信息框 (“置自定义纸张成功”, 0, , )

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

数据源1.从文件读 (取运行目录 () ＋ “\模板.grd”)
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\打印配置项”, “打印配置”, “自定义纸张”, )
打印设置.纸张类型 ＝ 到整数 (编辑框1.内容)
数据源1.置打印设置 (打印设置)

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

表格1.打印预览 ()

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

表格1.打印 (真, “测试打印”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 打印设置, 打印设置信息<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (数据源1.打印设置 () ＝ 真)<br />     打印设置 ＝ 数据源1.取打印设置 ()<br />     编辑框1.内容 ＝ 到文本 (打印设置.纸张类型)<br />     ' 自定义纸张获取到了，你想怎么处理呢？我用的办法是写配置项<br />     ' 如果需要其他参数清自行处理<br />     写配置项 (取运行目录 () ＋ “\打印配置项”, “打印配置”, “自定义纸张”, 编辑框1.内容)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (编辑框2.内容 ＝ “” 或 编辑框3.内容 ＝ “”)<br />     信息框 (“请设置纸张宽和高”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框4.内容 ＝ “”)<br />     信息框 (“纸张名称不能为空”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> ' 添加或修改自定义纸张类型。本方法仅在WindowsNT/2000/XP下有效，且要求具有打印机驱动的完全控制权限。注意：太小或太大的纸张大小和页边距，可能不被特定的打印所支持。本方法所设置的自定义纸张类型，可用于“开始打印()”的第三个参数“纸张类型”。添加或修改后的自定义纸张类型可以在“当前默认打印机驱动所属计算机”的“开始-设置-打印机和传真-文件-服务器属性”中看到（仅限WindowsNT/2000/XP系统）。本命令为高级对象成员命令。<br /> .如果 (打印机1.置自定义纸张类型 (编辑框4.内容, 到整数 (编辑框2.内容), 到整数 (编辑框3.内容), 0, 0, 0, 0) ＝ 假)<br />     信息框 (“置自定义纸张失败”, 0, , )<br /> .否则<br />     信息框 (“置自定义纸张成功”, 0, , )<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 数据源1.从文件读 (取运行目录 () ＋ “\模板.grd”)<br /> 编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\打印配置项”, “打印配置”, “自定义纸张”, )<br /> 打印设置.纸张类型 ＝ 到整数 (编辑框1.内容)<br /> 数据源1.置打印设置 (打印设置)<br /> <br /> .子程序 _按钮4_被单击<br /> <br /> <br /> 表格1.打印预览 ()<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> <br /> 表格1.打印 (真, “测试打印”)

哪里不明白就问吧，第一次发帖

13460030088

下载下载

智慧云端！

看看先，，

guayafem12

好

Silent

wuqingg 发表于 2022-12-1 19:07
锐浪好像是收费的对吗？

可免费用 有能力就正版

wuqingg

Silent 发表于 2022-11-18 08:34
那么笨 就用锐浪

锐浪好像是收费的对吗？

Silent

那么笨 就用锐浪

yuyessa

使用方法










关闭后再运行一下看看，自动保存了上次的参数



打印预览试试吧！ 理论上讲 只要是你打印机支持的纸张范围，应该都可以用这个方法。
如果你会用api调用打印机的纸张参数，那最好了，可以省去手动更改纸张的过程，就是（DeviceCapabilitiesA）这个命令
下面是DeviceCapabilitiesA 的参数，这个方法我还没有搞懂，哪位大指点一下
.DLL命令 API_获取设备能力信息, 整数型, "winspool.drv", "DeviceCapabilitiesA", 利用这个函数可获得与一个设备的能力有关的信息　由iIndex参数的值决定，请参考设备能力常数表。如函数执行失败，或打印机的驱动程序不支持这个函数，那么函数就会返回-1
    .参数 设备名, 文本型, , 设备名
    .参数 端口, 文本型, , 指定连接了指定设备的那个端口
    .参数 测试能力, 整数型, , 欲测试的能力。请参考设备能力常数表，其中列出了可选的值
    .参数 缓冲区地址, 文本型, , 指定一个缓冲区的地址，能力数据会装载到这个缓冲区中。在设备能力常数表中，针对每个fwCapabilities值的缓冲区的内容都进行了总结。这个表格同时总结了应将参数设为vbNull的一些情况
    .参数 DEVMODE结构地址, DEVMODE, , DEVMODE，一个DEVMODE结构的地址，或者为零。如指定了那个结构，函数会根据这个结构的设置来接收信息。如果为零，函数就会根据打印机驱动程序的默认值接收信息;  
.数据类型 DEVMODE, 设备初始设置;
    .成员 dmDeviceName, 文本型, , "32",
    .成员 dmSpecVersion, 短整数型, , ,
    .成员 dmDriverVersion, 短整数型, , ,
    .成员 dmSize, 短整数型, , ,
    .成员 dmDriverExtra, 短整数型, , ,
    .成员 dmFields, 整数型, , ,
    .成员 dmOrientation, 短整数型, , ,
    .成员 dmPaperSize, 短整数型, , ,
    .成员 dmPaperLength, 短整数型, , ,
    .成员 dmPaperWidth, 短整数型, , ,
    .成员 dmScale, 短整数型, , ,
    .成员 dmCopies, 短整数型, , ,
    .成员 dmDefaultSource, 短整数型, , ,
    .成员 dmPrintQuality, 短整数型, , ,
    .成员 dmColor, 短整数型, , ,
    .成员 dmDuplex, 短整数型, , ,
    .成员 dmYResolution, 短整数型, , ,
    .成员 dmTTOption, 短整数型, , ,
    .成员 dmCollate, 短整数型, , ,
    .成员 dmFormName, 文本型, , "32",
    .成员 dmUnusedPadding, 短整数型, , ,
    .成员 dmBitsPerPel, 整数型, , ,
    .成员 dmPelsWidth, 整数型, , ,
    .成员 dmPelsHeight, 整数型, , ,
    .成员 dmDisplayFlags, 整数型, , ,
    .成员 dmDisplayFrequency, 整数型, , ,