Dim tb As Table=Tables("毕业登记表")
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 211 '纸张宽度为100毫米
doc.PageSetting.Height = 124 '纸张高度为120毫米
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Doc.PageSetting.leftMargin = 0
Doc.PageSetting.rightMargin = 0
Doc.PageSetting.TopMargin =0
Doc.PageSetting.BottomMargin =0
doc.AutoRotate = False
For i As Integer = tb.TopPosition To tb.BottomPosition
Dim rg As New prt.RenderRectangle (74,108,New Prt.Linedef(0.4,Color.blaCk))
rg.x = 38
rg.y = 8
doc.Body.Children.Add(rg)
rg = New prt.RenderRectangle (74,108,New Prt.Linedef(0.4,Color.blaCk))
rg.x = 127
rg.y = 8
doc.Body.Children.Add(rg)
Dim Line As New prt.LineDef(0.5, Color.black,DashStyle.Dash)
Dim ln As New prt.RenderLine(31,8, 31, 116, Line)
doc.body.Children.Add(ln) '将线条加入到报表中
Dim rt As New prt.RenderText
rt.Text = "四川省普通初中"
rt.Style.Font=New Font("黑体", 15, FontStyle.Bold)
rt.Y =19
rt.x=58
Doc.body.Children.Add(rt) '添
rt = New prt.RenderText
rt.Text = "毕 业 证 书"
rt.Style.Font=New Font("黑体", 22, FontStyle.Bold)
rt.Y =27
rt.x=55
Doc.body.Children.Add(rt) '添
rg = New prt.RenderRectangle (29,38,New Prt.Linedef(0.2,Color.blaCk))
rg.x = 61
rg.y = 50
doc.Body.Children.Add(rg)
Dim rm As New prt.RenderImage()
rm.Style.ImageAlign.KeepAspectRatio= False
rm.Image= GetImage(projectPath & "remotefiles" & tb.Rows(i)("相片"))
rm.Width=29
rm.Height=38
rm.Y = 50
rm.x=61
doc.body.Children.Add(rm) '添加到容
rt = New prt.RenderText
rt.Text = "(" & Date.Today.Year & ")毕字第 " & trim(format(tb.rows(I)("编号"))) & " 号"
rt.Style.Font=New Font("宋体", 10, FontStyle.Bold)
rt.Y =98
rt.x=47
Doc.body.Children.Add(rt) '添
Next
Doc.Preview() '预览报表
上面的红色矩形框,里面加文字,想加的文件在矩形框内自动换行,这该怎么实现呢,也就是在new ra 中再new 一个ra
[此贴子已经被作者于2018/6/4 18:44:06编辑过]