请问这代码怎样加入字体代码
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() '预览报表