以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91084)

--  作者:lk15502
--  发布时间:2016/9/29 7:56:00
--  隐藏列
打印整个窗口,窗口中一个表只显示了部分列,有一部分有数据的列已经被隐藏,已经显示的列有几列可能会是空列,想在打印时临时隐藏空列,请问老师如何解决?打印按钮代码:
With Tables("生产单_table1")
    Syscmd.Table.ToggleSortAndFilter()
    .MergeMode = MergeModeEnum.free \'标准合并模式
    .MergeCols.Clear() \'清除原来的合并列
    .MergeCols.Add("订单品名规格") \'加入要合并的列
    .MergeCols.Add("颜色意见")
    .MergeSort = "订单品名规格,颜色意见" \'设置合并模式下的排序方式
    .AllowMerge = True \'启用合并模式
End With
\'--------------------------------------
Tables("生产单_table1").AutoSizeRows
Dim doc As PrintDoc = e.Form.gernateprintdoc() \'定义一个报表
doc.PageSetting.Landscape = True \'横向打印
doc.Preview() \'预览
\'---------------------

--  作者:有点蓝
--  发布时间:2016/9/29 8:54:00
--  
参考:http://www.foxtable.com/webhelp/scr/0572.htm