- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于打印预览后指定打印机的纸盒问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82823)
-- 发布时间：2016/3/25 12:36:00
-- 关于打印预览后指定打印机的纸盒问题
打印预览时，发现选定某个纸盒，他还是按照默认的纸盒去打印，为什么选择会失效，有什么办法解决？
-- 发布时间：2016/3/25 15:23: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
-- 发布时间：2016/4/18 13:47:00
--
这个试过了，没有效果
还发现这问题：
此主题相关图片如下：)emf2_k07vk}t}gh033sid.png
此主题相关图片如下：)emf2_k07vk}t}gh033sid.png点了这个打印出来也是没有一份份，还是两张两张
这些问题能有什么办法解决呢？
[此贴子已经被作者于2016/4/18 14:14:32编辑过]
-- 发布时间：2016/4/18 14:22:00
--
没办法解决。
-- 发布时间：2016/4/18 14:39:00
--
最佳列宽，有没有代码可以实现？
-- 发布时间：2016/4/18 15:33:00
--
设置表格宽度，各列就自动列宽了，不用设置。
无法理解你最佳是什么意思。