主题：关于专业报表设置纸张尺寸的问题

预览窗口自己做

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122281&skin=0

兼容性问题，专业报表有点问题。

你可以这样添加纸张，然后查找纸张，设置纸张，如 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&replyID=&skin=1

我测试代码没问题，如果报错，说明你这打印机不能正确添加自定义纸张。

Dim cps As new CustomPaperSize.CustomPaperSize()
cps.SetPrintForm(e.Form.Controls("ComboBox1").Text,"我新增的自定义纸张", 100*38, 100*27)
msgbox("添加成功")

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = e.Form.Controls("ComboBox1").Text
Dim i As Integer = 9
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  '生成打印机的纸张下拉列表
    If ps.PaperName = "我新增的自定义纸张" Then
        msgbox("paperkind = " & ps.RawKind )
        i = ps.rawkind
        Exit For
    End If
Next

Dim doc As New PrintDoc
Dim rt As New prt.RenderText
rt.Text = "Hello Foxtable"
doc.Body.Children.Add(rt)
Doc.PrinterName = e.Form.Controls("ComboBox1").Text
doc.PageSetting.PaperKind = i
doc.Preview