自定义设置专业报表文本位置? Post By:2011/10/23 12:33:00 [只看该作者]
Dim h As Row=Tables("表1").Current Dim doc As New PrintDoc '定义一个报表 Doc.PageSetting.BottomMargin = 10 '设置下边距
Dim rt As New prt.RenderText '文本对象 rt.Text = h("负责人") '文本内容 rt.Style.Font = New Font("仿宋_GB2312", 16) '设置字体 rt.X=h("负责人水平") rt.y=h("负责人垂直") doc.Body.Children.Add(rt) '加入到报表