主题：打印问题

导出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() '开始导出