Dim doc As New PrintDoc '定义一个报表 Dim t As Table = Tables("会议纪要") For i As Integer = t.TopPosition To t.BottomPosition Dim r As Row = t.Rows(i) Dim ra As New prt.RenderArea Dim rt As prt.RenderText ra.Style.Spacing.All = 1 ra.Style.Borders.All = New prt.Linedef(0.3, Color.Red) '设置边框 ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割 ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割 Doc.Body.ChildRen.Add(ra) '将容器加入到报表中 rt = New prt.RenderText rt.Text = "中共涟源市杨市镇中心卫生院支部委员会" rt.X = 2 rt.Y = 2 ra.Children.Add(rt) '添加到容器中 rt = New prt.RenderText rt.Text = "与会党员:" rt.X = 2 rt.Y = "Prev.Bottom + 2" '垂直坐标位于迁移对象之下的2毫米 ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("与会党员") rt.X = 30 rt.Y = "Prev.Top" '垂直坐标和前一对象相同 ra.Children.Add(rt) If r("列席人员") <> Nothing Then rt = New prt.RenderText rt.Text = "列席人员:" rt.X = 2 rt.Y = "Prev.Bottom + 2" ra.Children.Add(rt) rt = New prt.RenderText rt.Text = r("列席人员") rt.X = 30 rt.Y = "Prev.Top" ra.Children.Add(rt) End If ra.BreakBefore = prt.BreakEnum.Page Next Doc.Preview() '预览报表
|