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

一般针打的三联纸，会有三种尺寸，如下图

预览窗口自己做

 

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

 

参考这个帖子加了代码，指定了打印机，设置了纸张尺寸

运行后报错，然后在打印机属性里看，添加的纸张尺寸也和设置的不符

请问是哪的问题？

 

此主题相关图片如下：代码1.jpg


此主题相关图片如下：打印机.jpg

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

 

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呀

如果不兼容，就算设置了一样无法起效果的。这种情况只能是到打印机服务属性中手工添加尺寸，然后设置为默认打印尺寸。

那能不能我在打印机里添加一个尺寸，然后用代码指定使用这个打印机的这个尺寸呢？