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

设置一下纸盒看看。

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

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

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