主题：专业报表

哪位高手帮忙。想了一个下午没成功。就是要将报表中 数字部分大字体。其他部分小字体

Dim doc As New PrintDoc
Dim rt As  New prt.RenderArea
Dim r As New prt.RenderText
Dim Cur As Row = Tables("业务大表").Current
 For Each i As String In cur("关单号")
     r.text = i
     If IsNumeric(i) Then
     r.Style.Font = New Font("宋体", 16)
     Else
     r.Style.Font = New Font("宋体", 8)
     End If
  Next
     r.X = 68
      r.Y = 62
    rt.Children.Add(r)
doc.Body.Children.Add(rt)
doc.PageSetting.Landscape = True
doc.PageSetting.Width = 330
doc.PageSetting.Height = 300
Doc.PageSetting.LeftMargin = 13
Doc.PageSetting.TopMargin = 40
doc.AutoRotate = False
Doc.Preview()