主题：请教，专业报表如何做"分隔线"

例程中的专业报表有个连续打印员工资料表的例子，请教如何在两个资料表中间设置一条分隔线(也可以叫做剪裁线)

 

 

 

样式是这样的：

 

 

此处为第一个资料表

 

----------------剪裁线----------------

 

此处是第二个资料表

 

 

 

 

 

鼓捣了半天也没出结果，请指教一下

二楼的方法结果是剪裁线在每个资料表的顶端，包括第一个资料表，这样好像位置不对啊！

 

 

四楼的方法结果是需要定义资料表和分隔线的间隔宽度，而且中间无  “剪裁线”字样

老大的代码好像有问题，这样是可以的

 

 '加入分隔线
    Dim ry As New prt.RenderText
    ry.Text = "---------------------------------------------------------------------剪裁线-----------------------------------------------------------------------------"
    ry.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
    ry.Style.Spacing.top  = 2 '和上面的对象(表格)距离5毫米
    ry.Style.Spacing.Bottom = 5 '和下面的对象(表格)距离5毫米
    ra.Children.Add(rt) '加入到容器中
    ra.Children.Add(ry) '加入到容器中
    Doc.Body.ChildRen.Add(ra) '将容器加入到报表中