标题：打印问题

1楼

实话实说 发表于：2011/6/15 8:31:00

打印指定视图的表如何写

Tables("销售订单").printView("视图1") ? 要是能这样写就好了

2楼

hhbb 发表于：2011/6/15 9:11:00

先打开视图,再列印

3楼

实话实说 发表于：2011/6/15 9:27:00

我的表都在窗口显示,我想用按钮直接打印

4楼

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

Dim ex as New Exporter

ex.SourceTableName = "订单" '指定导出表

ex.FilePath = "c:\Data\订单.xls" '指定目标文件

ex.Format = "Excel" '导出格式为Excel

ex.Fields =s '指定导出字段

ex.Filter = "[产品] = 'PD01'" '指定导出条件

ex.Export() '开始导出

5楼

blackzhu 发表于：2011/6/15 10:03:00

还有,你不是做报表模板的吗,如果这样,不是想要什么列就要什么列.

6楼

实话实说 发表于：2011/6/15 10:25:00

以下是引用blackzhu在2011-6-15 10:03:00的发言：
还有,你不是做报表模板的吗,如果这样,不是想要什么列就要什么列.

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

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

MainTable = Tables("生产计划")
Tables("生产计划").OpenView("跟踪")
CurrentTable.Print(True,False)

7楼

blackzhu 发表于：2011/6/15 10:45:00

视图就是用的隐藏列的功能,用4楼的代码.

共7 条记录, 每页显示 10 条, 页签: [1]