预览窗口自己做

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

cps.SetPrintForm(e.Form.Controls("ComboBox1").Text,"我新增的自定义纸张", 100*38, 100*27)

为啥有2个尺寸呢?

此主题相关图片如下：kind.jpg

但是可以弹窗显示kind呀