以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何打印已生成的专业报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86704)
--  作者：ybmjy
--  发布时间：2016/6/23 15:33:00
--  [求助]如何打印已生成的专业报表
比如已经保存了一个专业报表，报表名是：报表1，请问如何通过按钮打印这个报表。代码如何写。谢谢
--  作者：大红袍
--  发布时间：2016/6/23 16:19:00
--  
 专业报表是动态生成的，不能保存成文件后直接把文件载入和打印。
--  作者：逛逛
--  发布时间：2016/6/23 16:55:00
--  
有Load方法的。
--  作者：大红袍
--  发布时间：2016/6/23 17:27:00
--  

抱歉，谢谢提醒

 

保存

 

Dim doc As new PrintDoc
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.save("d:\\test")

 

\'---------------------------------

 

导入

 

Dim rdoc As new PrintDoc
rdoc.Load("d:\\test")
rdoc.Preview