主题：关于打印预览后指定打印机的纸盒问题

打印预览时，发现选定某个纸盒，他还是按照默认的纸盒去打印，为什么选择会失效，有什么办法解决？

设置一下纸盒看看。

 

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

这个试过了，没有效果

  没办法解决。

最佳列宽，有没有代码可以实现？

设置表格宽度，各列就自动列宽了，不用设置。

 

无法理解你最佳是什么意思。