所有的 r = New prt.RenderText的下一行都插入这句代码试一试:
r.Style.Font = New Font("宋体",14, FontStyle.Regular)
已有字体设置的,就没必要再设置,指定了字体的地方应该没啥问题。