主题：专业报表问题

 那你平时打印的时候，如何指定纸盒？

 

 专业报表是无法设置这个的。

 汗，绕了一圈。可以设置的，参考

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderText '定义一个文本对象
rt.Text = "Hello Foxtable" '设置文本对象的内容
doc.Body.Children.Add(rt) '将文本对象加入到报表

For Each obj As object In Doc.PageSetting.ToPageSettings.PrinterSettings.PaperSources
    msgbox(obj.SourceName & " " & obj.kind & " " & obj.RawKind)
Next

Doc.PageSetting.ToPageSettings.PaperSource = Doc.PageSetting.ToPageSettings.PrinterSettings.PaperSources(0)

Doc.Preview
'doc.Print

For Each obj As object In Doc.PageSetting.ToPageSettings.PrinterSettings.PaperSources
    msgbox(obj.SourceName & " " & obj.kind & " " & obj.RawKind)
Next

 

弹出默认打印机拥有的纸盒信息。

 

PaperSources(0) 设置第几个纸盒

 

 打印机不是默认打印机。

 1、我测试没有问题；

 

 2、你可以打开word文档，看一下有几种纸盒选择(word->工具->选项->打印)

 

 3、共享的打印机，你看一下是否有权限去设置纸张和纸盒等属性

 

 4、你自定义纸张打印机不会自动去选择纸盒打印啊

 取得纸盒和设置纸盒的代码没有问题啊。打印机设置成默认打印机看看。

 而且，选择纸盒以后，最后不要doc.Preview啊，要doc.Print

 没有可能啊，有几个纸盒就会弹出多少个啊。

加QQ2450314695远程看一下

 可以获取纸盒和可以设置纸盒，代码没问题。