有点甜的 贴
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=54472&authorid=0&page=1&star=1
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编辑过]
加好友 
发短信
Post By：2014/9/17 10:36:00 [只看该作者]
