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 = 12

rt.Style.FontSize = 14 \'字体大小为16磅

        rt.y = 75+N*5

    rt.Width= 170

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

    n+=1

Next      

rt = new prt.RenderText

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

rt.x = 103

rt.y = 51

doc.body.Children.Add(rt)

rt.Style.FontSize = 12 \'字体大小为16磅