主题：word报表如何实现一次打印一份，自动打印？

Dim flt As String

Dim tb As Table = e.Form.Controls("table1").Table

For Each xh As Row In Tb.Rows

    If flt Is Nothing Then

        flt = "编号 = '" & xh("编号") & "'"

    Else

        flt = flt & " or 编号 = '" & xh("编号") & "'"

    End If

Next

If flt IsNot Nothing Then

    Dim jh As List(of DataRow) = DataTables("商品资料").Select(flt,"序号")

    If jh.Count > 0 Then

        Dim tm As String  = ProjectPath & "Attachments\委托加工合同A.doc" '指定模板文件

        Dim fl As String = ProjectPath & "Reports\委托加工合同A.doc" '指定目标文件

        Dim wrt As New WordReport(Tables("商品资料"),tm,fl) '定义一个WordReport

        For Each dy As DataRow In jh

            wrt.Buildone(dy)

            Dim app As New MSWord.Application

            try

                'Dim fileName = "e:\test.doc"

                app.Documents.Open(fl)

                'app.Documents(fileName).PrintPreview

                'app.Visible = True

                app.Documents(fl).PrintOut '打印

            catch ex As exception

                msgbox(ex.message)

            finally

                app.Quit

            End try

        Next

    End If

End If