主题：[求助]

求word报表直接打印代码

 查了下资料，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

藏宝阁中备用。

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

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