以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  换电脑专业报表打印预览就是空白显示？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142786)
--  作者：kgdce
--  发布时间：2019/11/6 11:23:00
--  换电脑专业报表打印预览就是空白显示？
遇到这样一个问题，同样的专业报表代码，可以说就是复制帮助中的代码，在A电脑专业报表打印预览是正常的，在B电脑就是空白显示，这是什么原因呢？能否给出可能的答案。
--  作者：有点蓝
--  发布时间：2019/11/6 11:24:00
--  
什么代码发上来测试一下
--  作者：kgdce
--  发布时间：2019/11/6 11:26:00
--  

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电脑预览就是空白，不是代码有问题。
--  作者：有点蓝
--  发布时间：2019/11/6 11:30:00
--  
什么版本的Foxtable？试用版？可能快到期了。
--  作者：kgdce
--  发布时间：2019/11/6 11:43:00
--  
高级开发版，不是试用版，才激活的
--  作者：kgdce
--  发布时间：2019/11/6 11:54:00
--  
又激活了一次，还是不行，能远程吗？
--  作者：有点蓝
--  发布时间：2019/11/6 11:54:00
--  
联系客服远程看看
--  作者：blackzhu
--  发布时间：2019/11/6 13:20:00
--  
代码没问题呀,是不是windows的gdi 有啥问题?