rt.Text = "Hello Foxtable "
&
i
'设置文本对象的内容 rt.Width = 35
'宽度为35毫米 rt.Height = 15
'宽度为15毫米 rt.Style.Spacing.All = 2
'设置各个方向的间隔 rt.Style.Borders.All = New
prt.Linedef(1, Color.Red) '设置边框 rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
'水平居中 rt.Style.TextAlignVert = prt.AlignVertEnum.Center
'垂直居中 doc.Body.Children.Add(rt) '将文本对象加入到报表 Next ra.Stacking = prt.StackingRulesEnum.InlineLeftToRight
'设置容器中对象的排列方式 For
i
AS
integer = 4
To
7 rt = New
prt.RenderText() '创建文本对象 rt.Text = "Hello Foxtable "
&
i
'设置文本对象的内容 rt.Width = 35
'宽度为35毫米 rt.Height = 15
'宽度为15毫米
上面二处黄色背景处,均应是:高度为15毫米
|