贴出代码来或给个例子让懂专业报表的人看看吧， 挺小气的。呵呵

这个是代码：

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() \'打印

没打印出来的地方是什么原因造成的呢？