| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自定义 纸张 怎么使用啊 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57038) |
| -- 作者：freeants -- 发布时间：2014/9/17 10:36:00 -- 自定义 纸张 怎么使用啊 有点甜的 贴 Dim cps As new CustomPaperSize.CustomPaperSize() cps.SetPrintForm(e.Form.Controls("ComboBox1").Text,"我新增的自定义纸张", 100*38, 100*27) msgbox("添加成功") 以后 Dim prtdoc As new Printing.PrintDocument() prtdoc.PrinterSettings.PrinterName = e.Form.Controls("ComboBox1").Text For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes \'生成打印机的纸张下拉列表 If ps.PaperName = "我新增的自定义纸张" Then msgbox("paperkind = " & ps.RawKind ) End If Next 单怎么用呢， 举例 如下 用在 EXCEL 打印报表 里面 是否 100*38, 100*27 是不是 就是面料的 长宽？ With Sheet.PrintSetting .AutoScale =False .PaperKind = 9 \'设为A4纸 是否改为 ps.RawKind 的值 End With [此贴子已经被作者于2014-9-17 10:36:39编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/9/17 10:37:00 -- 是的，改为 ps.RawKind |
| -- 作者：freeants -- 发布时间：2014/9/17 10:39:00 -- 100*38, 100*27 是不是 就是纸张的 长宽 ？ 3.8 CM 2.7 CM? |
| -- 作者：有点甜 -- 发布时间：2014/9/17 10:42:00 -- 以下是引用freeants在2014-9-17 10:39:00的发言：
100*38, 100*27 是不是 就是纸张的 长宽 ？ 3.8 CM 2.7 CM?
是的，这个就是纸张的长宽。具体你可以去打印那里看一下所设置的纸张长宽 |