Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Landscape = True
Dim rx As new prt.RenderText '定义一个文本对象
Dim x As Integer = 0 '定义水平偏移参数
Dim y As Integer = 0 '定义垂直偏移参数
'Dim CurRow As Row = Tables("基本信息").Current
rx = new prt.RenderText
rx.Text = ("单位名称")
rx.x = 34 + x '设置坐标的时候,注意加上偏移参数
rx.y = "Parent.Height - 14" '34+ y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = ("法人")
rx.x = 44 + x
rx.y = "Parent.Height - 64" '44 + y
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = ("单位地址")
rx.x = 54 + x
rx.y = "Parent.Height - 14"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = ("邮政编码")
rx.x = 54 + x
rx.y = "Parent.Height - 114"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
rx = new prt.RenderText
rx.Text = ("联系电话")
rx.x = 64 + x
rx.y = "Parent.Height - 14"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = 90
doc.body.Children.Add(rx)
'加入更多的打印对象....
doc.Preview
加好友 
发短信
Post By：2021/4/18 21:42:00 [显示全部帖子]
