Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 50 '纸张宽度为210毫米
doc.PageSetting.Height = 70 '纸张高度为297毫米
Doc.PageSetting.LeftMargin = 2 '设置左边距
Doc.PageSetting.RightMargin = 2 '设置右边距
Doc.PageSetting.TopMargin = 2 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置下边距
'加入标题
Dim rx As New prt.RenderText() '定义一个文本对象
rx.text = "**单"
rx.Style.Font = New Font("方正小标宋简体", 14) '设置文本对象的字体，语法：New Font(Name, Size, Style)
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.top = 3 '和上面的对象距离0毫米
doc.Body.Children.Add(rx) '将文本对象加入报表
'加入服用方法
rx = New prt.RenderText() '创建文本对象
rx.Style.Font = New font("宋体", 12)
rx.text = "内服"
rx.X = 35
rx.y = 4
rx.Width = 12 '对象宽度为40毫米
rx.Height = 7 '对象宽度为40毫米
rx.Style.Borders.All = New prt.Linedef(0.5, Color.Red) '设置边框
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rx.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中
doc.Body.Children.Add(rx) '将对象加入到报表中
'加入病人详情
Dim rt As New prt.RenderParagraph() '定义一个段落对象
Dim f1 As New Font("宋体", 10, FontStyle.Bold) '定义一个加粗的字体
Dim f2 As New Font("宋体", 10, FontStyle.Underline) '定义一个加粗加下划线的字体
rt.Content.AddText("姓名：", f1)
rt.Content.AddText("张三" & Chr(13) & Chr(10) & "", f2)
rt.Content.AddText("性别：", f1)
rt.Content.AddText("男" & Chr(13) & Chr(10) & "", f2)
rt.Content.AddText("年龄：" , f1)
rt.Content.AddText("76", f2)
'rt.Style.Spacing.top = 10 '和上面的对象距离10毫米
rt.Style.LineSpacing = 150 '设置1.5倍行距
doc.body.Children.add(rt)
doc.Preview() '预览
加好友 
发短信
Post By：2024/11/8 8:59:00 [显示全部帖子]
