以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打印问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10619)
--  作者：实话实说
--  发布时间：2011/6/15 8:31:00
--  打印问题

打印指定视图的表如何写

 

Tables("销售订单").printView("视图1")  ? 要是能这样写就好了
--  作者：hhbb
--  发布时间：2011/6/15 9:11:00
--  
先打开视图,再列印
--  作者：实话实说
--  发布时间：2011/6/15 9:27:00
--  

我的表都在窗口显示,我想用按钮直接打印
--  作者：blackzhu
--  发布时间：2011/6/15 10:02:00
--  
导出EXCEL表时,只导出显示列   

Dim s As String 
For Each cl As Col In Tables( "订单").Cols \'排除隐藏列
   If cl.Visible Then
If s ="" Then
s = cl.Name
Else
 s = s &","& cl.Name
  End If
 End If
Next
Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
 ex.Fields =s \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() \'开始导出
 
--  作者：blackzhu
--  发布时间：2011/6/15 10:03:00
--  
还有,你不是做报表模板的吗,如果这样,不是想要什么列就要什么列.
--  作者：实话实说
--  发布时间：2011/6/15 10:25:00
--  
以下是引用blackzhu在2011-6-15 10:03:00的发言：
还有,你不是做报表模板的吗,如果这样,不是想要什么列就要什么列.

我只是想通过窗口按钮打印指定视图的表，我现在是用下面的代码实现，虽然能达到要求，但总觉得别扭,

要是有1楼代码实现就好了

 

MainTable = Tables("生产计划")
Tables("生产计划").OpenView("跟踪")
CurrentTable.Print(True,False)
--  作者：blackzhu
--  发布时间：2011/6/15 10:45:00
--  
视图就是用的隐藏列的功能,用4楼的代码.