For i As Integer = 0 To Tables("表A").Count - 1
Tables("表A").Position=i
CurRow = Tables("表A").Rows(i)
Doc = New PrintDoc
doc.PageSetting.Width = 230 '纸张宽度为230毫米
doc.PageSetting.Height = 100 '纸张高度为100毫米
doc.AutoRotate = False
rx = new prt.RenderText
rx.Text = CurRow("第一列")
rx.x = 20
rx.y = 20
doc.body.Children.Add(rx)
doc.Print() '打印报表
Next