主题：打印凭证时的表头如何居中

这个是新版的bug，之前不会这样的。改一个属性

 

e.Form.Controls("Label2").printable = False
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
For Each c As Object In doc.body.children
    If typeof c Is prt.RenderTable Then
        c.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
    End If
Next

doc.Preview()

老师，如何将两张连续打印的A5纸打印在一张A4纸上呢？

老师，如何将两张连续打印的A5纸凭证打印在一张A4纸上呢？

参考代码

 

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ls As new List(Of Object)
For Each c As Object In doc.body.children
    ls.add(c.clone)
    If typeof c Is prt.RenderTable Then
        c.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '第一行内容水平居中
    End If
Next
Dim ra As new prt.RenderArea
For Each s As object In ls
    ra.children.add(s)
Next
ra.x = 10
ra.y = 100
Doc.body.Children.add(ra)
doc.Preview()