以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70633)
--  作者：xjt26605275
--  发布时间：2015/6/25 14:33:00
--  专业报表问题
打印机有两个纸盒,如何在打印时  指定纸盒?
--  作者：大红袍
--  发布时间：2015/6/25 14:34:00
--  

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

 

 专业报表是无法设置这个的。
--  作者：xjt26605275
--  发布时间：2015/6/25 14:42:00
--  
意思是在打印机里设置?
--  作者：Bin
--  发布时间：2015/6/25 14:42:00
--  
是的
--  作者：大红袍
--  发布时间：2015/6/25 15:08:00
--  

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

 

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
--  作者：xjt26605275
--  发布时间：2015/6/25 15:19:00
--  
谢谢
PaperSources(0) 这个就是纸盒?
--  作者：大红袍
--  发布时间：2015/6/25 15:21:00
--  

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

 

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

 

PaperSources(0) 设置第几个纸盒

 
--  作者：xjt26605275
--  发布时间：2015/6/25 15:51:00
--  
还是不行,打印机上明明有两个纸盒,但PaperSources只拿到一个
--  作者：大红袍
--  发布时间：2015/6/25 15:52:00
--  
 打印机不是默认打印机。
--  作者：xjt26605275
--  发布时间：2015/6/25 19:11:00
--  
以下是引用大红袍在2015/6/25 15:52:00的发言：
 打印机不是默认打印机。
还是不行啊，我的打印机是共享的，打印机有俩个纸盒，1个放A4纸，1个放自定义纸张，用专业报表打印自定纸张，打印机有设置自定义纸张，打印时也有选择，但就是死活默认给我使用A4纸打