还是错误，麻烦看看：
错误代码：
.NET Framework 版本：2.0.50727.8784
Foxtable 版本：2018.3.9.1
错误所在事件：窗口,發piao管理,btnPrintListbyCode,Click
详细错误信息：
无效的PaperKind代码181。
Dim doc As New PrintDoc
Dim prtdoc As new Printing.PrintDocument()
Dim strDefaultPrinter As String = e.Form.Controls("cboPrinter").text
prtdoc.PrinterSettings.PrinterName = strDefaultPrinter
Doc.PrinterName = strDefaultPrinter
Dim intPaperKindID As Integer = 9 '默認 A4,如果未找到的話
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes '生成打印机的纸张下拉列表
If ps.papername = "1000inv" Then '固定设置自定义纸张名称
intPaperKindID = ps.RawKind
Exit For
End If
Next
With doc.PageSetting
.LeftMargin = 0
.RightMargin = 0
.BottomMargin = 0
.TopMargin = 0
.LandScape = True '横向打印
.PaperKind = intPaperKindID '这里提示上述错误
.Width = 217
.Height = 165
End With
Doc.AutoRotate = False
[此贴子已经被作者于2019/2/11 14:36:28编辑过]
加好友 
发短信
Post By：2019/2/11 11:40:00 [显示全部帖子]
