主题：[求助]打印 Papersize

 如果你的打印机服务没有启动，没有默认打印机，就会报这个错。

启动一下这个服务 http://jingyan.baidu.com/article/aa6a2c14d5137f0d4d19c45b.html

 

 当你的默认打印机，没有对应的纸张设置的时候，也会报错的，比如

    .PaperSize = 999 '纸张大小

 

 你试试动态加入纸张 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0

 

这样获取

 

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes 

    output.show(ps.PaperName)
    If ps.PaperName = "100x 100" Then
        msgbox("paperkind = " & ps.RawKind )
    End If
Next