主题：关于动态增减列

设计报表模板时怎么设置成运行期间动态增减列呢？

excel模板是固定的，无法动态增减。如果要增减，那就需要用vba修改excel模板
 
http://www.foxtable.com/webhelp/scr/2121.htm

 

上传具体例子说明你的问题。
 
 

打开程序后选择“打印窗体”对数据筛选后，选择要打印的列单击“打印数据”按钮执行带有打印预览的打印对话框单击打印在打印所选择的列。

Dim lieming As WinForm.CheckedListBox = e.Form.Controls("xzdylieCheckedListBox")

Dim t As Table = Tables("POS机库存资料")
Dim str As String = t.getColVisibleWidth
If lieming.value > "" Then
    For Each c As Col In t.Cols
        c.visible = False
    Next
    For Each s As String In lieming.value.split(",")
        t.cols(s).visible = True
    Next
End If
Tables("POS机库存资料").Print(True, False)
t.SetColVisibleWidth(str)

选好要打印的列后,列宽怎么设呢？

 

列宽，你可以用鼠标直接修改右边的列的宽度。

打印预览无法修改的

 

是在你打印之前，修改右边表格的列的宽度。

我的窗体表不在打印窗体上，窗体是调用的只是选择要打印的列，而且打印窗体是模式窗体，没法调整列的宽度

 

那你本来想怎么设置列宽？通过什么方式设置列宽？

 

1、你可以调整好列宽，然后再打开窗口；

 

2、你可以在窗口那里放一个表格，用于设置表格列宽。