以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49486)
--  作者：ybmjy
--  发布时间：2014/4/18 16:03:00
--  [求助]

求word报表直接打印代码
--  作者：Bin
--  发布时间：2014/4/18 16:04:00
--  
不可以,除非利用VBA.
--  作者：有点甜
--  发布时间：2014/4/18 16:43:00
--  

 查了下资料，vba打印word报表代码，如下

 

 Dim app As New MSWord.Application
try
    Dim fileName = "e:\\test.doc"
    app.Documents.Open(fileName)
    \'app.Documents(fileName).PrintPreview
    \'app.Visible = True
    app.Documents(fileName).PrintOut \'打印
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

[此贴子已经被作者于2014-4-18 16:47:30编辑过]
--  作者：lsy
--  发布时间：2014/4/18 16:54:00
--  
以下是引用有点甜在2014-4-18 16:43:00的发言：

 查了下资料，vba打印word报表代码，如下

 

 Dim app As New MSWord.Application
try
    Dim fileName = "e:\\test.doc"
    app.Documents.Open(fileName)
    \'app.Documents(fileName).PrintPreview
    \'app.Visible = True
    app.Documents(fileName).PrintOut \'打印
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

[此贴子已经被作者于2014-4-18 16:47:30编辑过]

藏宝阁中备用。
--  作者：ybmjy
--  发布时间：2014/4/18 19:36:00
--  

Dim tm As String  = ProjectPath & "Attachments\\12.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\12.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("表A"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Quit

Dim app As New MSWord.Application
try
    Dim fileName =ProjectPath & "Reports\\12.doc"
    app.Documents.Open(fileName)
    \'app.Documents(fileName).PrintPreview
    \'app.Visible = True
    app.Documents(fileName).PrintOut \'打印
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

以上这样可以，但屏幕闪烁一下，是什么原因呢？

[此贴子已经被作者于2014-4-18 19:40:06编辑过]