主题：[求助]根据帮助文档做的 凭证格式 为何看到的和打印的效果不同

嗯 看到 结果了 就是 预览的 太多了 每页 一个个的弹出来预览 如何 一次 预览 所有的呢  然后 一次打印出来呢？

 

Dim bxhz As WinForm.Table = Forms("pm0101").Controls("bxhz")
Dim ndoc As new PrintDoc
For Each r As Row In  bxhz.Table.Rows
    Dim rm = new prt.RenderEmpty '定义一个新的空对象
    rm.BreakBefore = prt.BreakEnum.Page '打印前换页
    ndoc.Body.Children.Add(rm) '加入到报表中
    Dim hjdx As WinForm.Label = e.Form.Controls("Label22")
    Dim pzlr As WinForm.Table = e.Form.Controls("Table1")
    pzlr.Table.Filter="numbers='"& r("numbers") &"'"
    hjdx.text=r("totalamount")
    Dim doc As PrintDoc = e.Form.GernatePrintDoc()
    ndoc.PageSetting.Width = doc.PageSetting.Width
    ndoc.PageSetting.Height = doc.PageSetting.Height
    nDoc.PageSetting.LeftMargin = Doc.PageSetting.LeftMargin
    nDoc.PageSetting.RightMargin = Doc.PageSetting.RightMargin
    nDoc.PageSetting.TopMargin = Doc.PageSetting.TopMargin
    nDoc.PageSetting.BottomMargin = Doc.PageSetting.BottomMargin
    For Each c As object In Doc.Body.Children
        Dim nc = c.clone
        ndoc.Body.Children.Add(nc)
    Next
Next
ndoc.Preview