主题：最大行数分页打印？？

上图最小行数和最大行数属性都设置为6，这样明细的行数不到6行时，会自动补充空行，超过6行时，会分页打印凭证，每页打印6行。

可不可以不要分页，直接打印在同一页就像这样

此主题相关图片如下：搜狗截图121226_1.png

有图了

嗯，用你的代码我改了一下，效果是有了，但是不知道代码的意思

Dim doc As PrintDoc = Forms("窗口1").GernatePrintDoc()
Dim ls_Obj As New List(Of Object)

For Each c As Object In Doc.Body.Children
    ’Output.Show(c.tostring & "   " & c.y.Tostring)
    If c.y.Tostring = "auto" Then
        ls_obj.add(c)‘这句代码我一直不明白为什么加这就OK？？
    Else
        For i As Integer = 0 To 2
            Dim o As Object = c.clone()
            o.y = new C1.C1Preview.Unit(CStr(o.y.value + 80 * i))'没有办法,试了很多,不能把窗口的高度转成unit类型,只能自己填写具体的值了
            ls_Obj.Add(o)
        Next
       
    End If
   
Next

doc.body.Children.Clear
For Each o As Object In ls_Obj
    Doc.body.Children.Add(o)
Next

doc.Preview()