主题：[求助]直接打印

换一种方式打印。

 

 

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

    wrt.print

    wrt.quit

 那就是你的MS Office安装有问题，请安装完整版的。