指定一下字体：
Dim doc1 As New PrintDoc '定义一个报表
Dim rtt As prt.RenderText '文本
rtt= New prt.RenderText
rtt.Style.Font = New Font("宋体", 10)
Dim show As String = Format(12,"#0.00")
rtt.Text ="$ " & show.PadLeft(6," ")
rtt.X =60
rtt.Y="60"
Doc1.Body.Children.Add(rtt)
rtt= New prt.RenderText
rtt.Style.Font = New Font("宋体", 10)
show = Format(0,"#0.00")
rtt.Text ="$ " & show.PadLeft(6," ")
rtt.X =60
rtt.Y="Prev.Bottom"
Doc1.Body.Children.Add(rtt)
rtt= New prt.RenderText
rtt.Style.Font = New Font("宋体", 10)
show = Format(11,"#0.00")
rtt.Text ="$ " & show.PadLeft(6," ")
rtt.X =60
rtt.Y="Prev.Bottom"
Doc1.Body.Children.Add(rtt)
Doc1.Preview() '预览报表
加好友 
发短信
Post By：2020/11/22 20:15:00 [显示全部帖子]
