以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表能够保存预览结果，便于下次调用就好了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=37932)
--  作者：pengjiam
--  发布时间：2013/7/15 17:06:00
--  专业报表能够保存预览结果，便于下次调用就好了
专业报表 预览时可以调整页边距、打印方向、纸张大小等参数，若这些参数能通过代码调用，这样可以记录预览后的结果，供下次预览或打印时调用就好了。
--  作者：狐狸爸爸
--  发布时间：2013/7/15 17:11:00
--  
这个相当的简单，自己做个窗口，进行设置，将设置保存在某个表中即可。
--  作者：pengjiam
--  发布时间：2013/7/15 17:46:00
--  

不是你说的这样简单，报表预览时的参数在预览时产生，如页边距具体多少，预先并不知道，是根据字段及其宽度等确定，系统若能自动记录下这些参数就方便多了。狐爸说的方法是要预先假设，做到满意就稍微麻烦些。
--  作者：狐狸爸爸
--  发布时间：2013/7/15 17:52:00
--  

可以的：

 

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
doc.Preview() \'预览
MessageBox.show(Doc.PageSetting.TopMargin)

 

你在打印预览窗口设置上边距，关闭后就会显示上边距的值。