Dim doc As New PrintDoc '报表对象
doc.PageSetting.PaperKind = 9 'A4纸
Dim tb As new prt.RenderTable '定义一个Table,便于布局,你可以把它分的更细
tb.Rows.Count = 3 '三行1列
tb.Cols.Count = 1
tb.Rows(0).Height = "50%Parent.Height - 5"
tb.Rows(1).Height = 10
tb.Rows(2).Height = "50%Parent.Height - 5"
Dim zhubiaoti As New prt.RenderText '主标题
With zhubiaoti
.Text = "入党申请谈话通知书"
.Style.TextColor = Color.Red '字符颜色设为红色
.Style.Font = New Font("宋体", 24, FontStyle.Bold) '设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
.Style.TextIndent = 9 '首行缩进9毫米
.Style.Spacing.Top = 5 '每段间隔5毫米
.Style.LineSpacing = 150 '1.5倍行距
End With
Dim fubiaoti As New prt.RenderText '副标题
With fubiaoti
.Text = "中共某某县某某单位第二党支部第【】号"
.Style.Font = New Font("宋体", 12) '设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
.Style.TextIndent = 9 '首行缩进9毫米
.Style.Spacing.Top = 5 '每段间隔5毫米
.Style.LineSpacing= 150 '1.5倍行距
End With
Dim neirong As New prt.RenderText '内容
With neirong
Dim s As String '定义字符变量
s = "我支部于某年某月收到某某同志的入党申请书."
s = s & "支部将于一个月内派人同入党申请人谈话,了解基本情况."
.Text = s
.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.Left '水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
.Style.TextIndent = 12 '首行缩进9毫米
.Style.Spacing.Top = 5 '每段间隔5毫米
.Style.LineSpacing= 150 '1.5倍行距
End With
Dim qifeng As New prt.RenderText '骑缝
With qifeng
.Text = ".....................................(加盖骑缝章).................................."
.Style.Font = New Font("宋体", 10, FontStyle.Bold) '设置字体
End With
Dim jiewei As New prt.RenderText '结尾
With jiewei
.Text = " 某某党支部" & chr(13) & Date.Today.Tostring(" yyyy年MM月dd")
.Style.Font = New Font("宋体", 16, FontStyle.Bold) '设置字体
.Style.TextAlignHorz = prt.AlignHorzEnum.left '水平居中
.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
.Style.Padding.Left = 10
.X = 100
.Height = 60
End With
Dim yinzhang As New prt.RenderImage '印章
With yinzhang
.Image = GetImage("FoxTable (2).png") '自己换印章图像
.Height = 45
End With
tb.Cells(0,0).Area.Children.Add(zhubiaoti)
tb.Cells(0,0).Area.Children.Add(fubiaoti)
tb.Cells(0,0).Area.Children.Add(neirong)
tb.Cells(0,0).Area.Children.Add(jiewei)
tb.Cells(1,0).Area.Children.Add(qifeng)
tb.Cells(2,0).Area.Children.Add(zhubiaoti.Clone) '复制一个相同对象
tb.Cells(2,0).Area.Children.Add(fubiaoti.Clone)
tb.Cells(2,0).Area.Children.Add(neirong.Clone)
Dim a As prt.RenderText = jiewei.Clone()
a.Children.Add(yinzhang) '将印章加入到签名
tb.Cells(2,0).Area.Children.Add(a)
doc.Body.Children.Add(tb) '将文本对象加入到报表
doc.Preview() '预览
加好友 
发短信
Post By：2021/1/5 19:43:00 [显示全部帖子]
