此主题相关图片如下：未命名.jpg

Paperlist

系统提示未定义，怎么获取这个纸张列表设置的值呢？

这个不是给你调用的，是用于设置当前表的纸张类型。

要用的话，只能自己编码实现。

获得所有纸张类型的名称：

Dim prnts As New System.Drawing.Printing.PrinterSettings
For Each ps As System.Drawing.Printing.PaperSize In prnts.PaperSizes
    output.show(ps.papername)
Next

根据名称获得纸张类型：

Dim prnts As New System.Drawing.Printing.PrinterSettings
Dim nm As String = "A4"
Dim doc As New PrintDoc() \'定义一个报表
For Each ps As System.Drawing.Printing.PaperSize In prnts.PaperSizes
    If ps.papername = nm Then
        doc.PageSetting.PaperKind  = ps.kind       
    End If
Next

谢谢狐爸