主题：[求助]

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