Dim zzlx As String
Dim cps As new CustomPaperSize.CustomPaperSize()
cps.SetPrintForm(dyj.Text,"danju", 100*24, 100*14)
Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = dyj.Text
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.PaperName = "danju" Then '''' "我新增的自定义纸张" Then
zzlx = ps.RawKind
End If
Next
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.PaperKind = zzlx
(错误提示:无效的PaperKind代码210。)
加好友 
发短信
Post By：2019/9/19 8:52:00 [显示全部帖子]
