主题：[求助]窗体连续打印问题？

甜版，我做了一个凭证打印窗体，按要求筛选，然后打印，打印按钮代码如下：

If Filter > "" Then

    DataTables("记账凭证_主表").loadFilter = Filter

    DataTables("记账凭证_主表").load()

    Dim doc As PrintDoc = Forms("记账凭证").GernatePrintDoc()

    doc.Preview

End If

但单击后预览显示空页，记账凭证窗体和·凭证打印窗体是分着的，不知错在哪里了·。

在连续打印的时候，预览一张打一张，预览一张打一张。

如何实现第一张预览，设置打印机等，后面的直接就打印？

刚才试了一下：

doc.preview

doc.print

第一张预览设置好打印机以后打印出来没有问题，打印第二张就不按第一张设置的·打印机打印了。

甜版，是不是我的代码有问题：

If Filter > "" Then

    DataTables("记账凭证_主表").loadFilter = Filter

    DataTables("记账凭证_主表").load()

    Dim doc As PrintDoc = e.Form.GernatePrintDoc()

    Dim d As Date

    For Each c As object In Doc.Body.Children

        If c.Gettype.Name Like "*Table*" Then

            Dim t As prt.RenderTable = c

            t.Rows(0).Height = 10

            t.Rows(0).Style.BackColor = Color.white

            t.Rows(0).Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体

            For i As Integer = 0 To t.Cols.Count - 1

                t.Cells(0,i).Style.TextAlignHorz = prt.AlignHorzEnum.Center

            Next

        Else If c.Gettype.name Like "*Text*" AndAlso Date.TryParse(c.text,d) Then

            c.text = Format(cdate(c.text), "yyyy年MM月dd日")

        End If

    Next

    doc.Preview

    doc.print

End If