Dim doc As New PrintDoc \'定义一个报表

Dim rt As prt.RenderText \'定义一个文本对象

Dim rm As prt.RenderImage \'定义一个图形队形

Dim CurRow As Row = Tables("TAXI車輛資料").Current

Dim n As Integer

For Each s1 As String In CurRow("修理內容").split(" ")

    rt =New prt.RenderText

    rt.Text = s1 \'设置文本对象的内容

    rt.x = 27

    rt.y = 78+N*4

    rt.Width= 168

    doc.Body.Children.Add(rt) \'将文本对象加入到报表

    n+=1

Next      

rt = new prt.RenderText

rt.Text = CurRow("公司名")

rt.x = 51

rt.y = 36

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("車牌號碼")

rt.x = 109

rt.y = 36

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("型號")

rt.x = 51

rt.y = 43

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("日期")

rt.x = 109

rt.y = 43

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("公司名")

rt.x = 51

rt.y = 50

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("型號")

rt.x = 109

rt.y = 50

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("電話號碼")

rt.x = 51

rt.y = 57

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("單號")

rt.x = 109

rt.y = 57

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("總計")

rt.x = 51

rt.y = 63

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("單價")

rt.x = 51

rt.y = 69.5

doc.body.Children.Add(rt)

rt = new prt.RenderText

rt.Text = CurRow("序列")

rt.x = 109

rt.y = 69.5

doc.body.Children.Add(rt)

Doc.Preview() \'预览报表