在老师的指导下，将其写成一个自定义函数，分享给大家''函数名:获取纸张值,
''作用:返回纸张值,在报表中常用
''参数0:当前打印机
''参数1:纸张类型
''返回:纸张值
Dim str As String = Args(1) ''纸张类型
Dim i As Integer ''纸张值
Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = Args(0) ''DefaultPrinter 'DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.PaperName = str Then
i = ps.RawKind
Return i
Exit For
End If
Next
If i = 0 Then
MessageBox.Show("当前打印机不支持该纸张!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return Nothing
End If
加好友 
发短信
Post By：2015/6/1 17:30:00 [只看该作者]
