这个是代码:
DIM R AS ROW =Tables("驾证业务").CURRENT
Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 210 '纸张宽度为210毫米
doc.PageSetting.Height = 350 '纸张高度为350毫米
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距
Dim xm As New prt.RenderText '定义一个文本对象xm为姓名
xm.Text = R("姓名")
xm.Style.Font = New Font("宋体", 15, FontStyle.Bold) '设置字体
xm.X =146
xm.Y =78
xm.Style.TextAngle = -90 '顺时钟旋转90度
doc.Body.Children.Add(xm) '将文本对象加入到报表
Dim xm1 As New prt.RenderText '定义一个文本对象
xm1.Text = R("姓名") '设置文本对象的内容
xm1.Style.Font = New Font("宋体", 15, FontStyle.Bold) '设置字体
xm1.X =170
xm1.Y =300
xm1.Style.TextAngle = -90 '顺时钟旋转90度
xm1.CanSplitVert = False
doc.Body.Children.Add(xm1) '将文本对象加入到报表
Dim xb As New prt.RenderText '定义一个文本对象
xb.Text = R("性别") '设置文本对象的内容
xb.Style.Font = New Font("宋体", 15, FontStyle.Bold) '设置字体
xb.X =146
xb.Y =140
xb.Style.TextAngle = -90 '顺时钟旋转90度
doc.Body.Children.Add(xb) '将文本对象加入到报表
Doc.PrinterName = "OKi5530"
doc.Print() '打印
没打印出来的地方是什么原因造成的呢?