以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111394)
--  作者：有点甜
--  发布时间：2017/12/21 8:42:00
--  

加载全部出来，然后再打印


DataTables("S征地明细").loadTop = ""
DataTables("S征地明细").loadpage = 0
DataTables("S征地明细").load
--  作者：有点甜
--  发布时间：2017/12/21 8:43:00
--  

如果是后台打印，参考

 

http://www.foxtable.com/webhelp/scr/3233.htm

 
--  作者：有点甜
--  发布时间：2017/12/21 17:18:00
--  

看2楼代码，全部加载出来。
--  作者：cd_tdh
--  发布时间：2017/12/21 21:59:00
--  
你的代码执行过了才加载肯定不对，要把老师的代码放你的代码前面去。
--  作者：有点甜
--  发布时间：2017/12/21 23:29:00
--  

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

    DataTables("工序跟踪表").loadTop = ""
    DataTables("工序跟踪表").loadpage = 0
    DataTables("工序跟踪表").load


     Tables("工序跟踪表").SaveExcel(dlg.FileName, "工序跟踪表")  \'保存文件
End I