[求助]如何在关联表模板里设计打印时自动扩展某一列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

就是，你生成报表以后，用vba打开这个报表，然后设置这个报表的某一列自动扩展。看完下面一段帮助

是否缩小单元格内容以全部显示。

当单元格内的数据长度超过单元格宽度时，就会只显示一部分数据。
使用ShrinkToFit属性，可将单元格内的数据缩小，以适应单元格，使内容全部显示出来。
如：Rg.ShrinkToFit = True

如果反过来，希望自动调整单元格大小，使单元格能够显示全部数据。这需要用到AutoFit方法。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A1")
Rg.Value = "Foxtable操控Excel全攻略"
Rg.Font.Size = 50 '把字体放大
Rg.EntireColumn.AutoFit '自动调整列宽
Rg.EntireRow.AutoFit '自动调整行高
App.Visible = True

如果要调整工作表全部单元格的大小，可以使用Cells属性。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.EntireColumn.AutoFit '自动调整列宽
Rg.EntireRow.AutoFit '自动调整行高
App.Visible = True

主题：[求助]如何在关联表模板里设计打印时自动扩展某一列