主题：换电脑专业报表打印预览就是空白显示？

Dim doc As New PrintDoc '定义一个报表
Dim rpar As New prt.RenderParagraph() '定义一个段落对象
Dim f As New Font(rpar.Style.Font, FontStyle.Bold) '定义一个同样但加粗的字体
rpar.Content.AddText("这是一个段落. 现在是正常文本. ")
rpar.Content.AddText("现在的文本是加粗的. ", f)
rpar.Content.AddText("这一句是红色的. ", Color.Red)
rpar.Content.AddText("这一句是上标形式，上标不再是难题. ", prt.TextPositionEnum.Superscript)
rpar.Content.AddText("现在字体加粗，而且是红色. ", f, Color.Red)
rpar.Content.AddText("现在字体加粗，红色，而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)
rpar.Content.AddText("现在又是正常的文本了. ")
rpar.Content.AddText("最后，我们来插入一个图标: ")
rpar.Content.AddImage(getimage("logon.ico"))
rpar.Content.AddText(".")
doc.body.Children.add(rpar)
Doc.Preview() '预览报表

就是在命令窗口，A电脑能看到预览，B电脑预览就是空白，不是代码有问题。