- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 报表打印如何实现页面自适应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129910)
-- 发布时间：2019/1/8 16:17:00
-- 报表打印如何实现页面自适应
请问 FoxTable在报表打印中如何实现页面自适应？
-- 发布时间：2019/1/8 16:37:00
--
1、什么报表打印？
2、要做到怎样的效果？实例发上来测试。
-- 发布时间：2019/1/8 16:51:00
--
将表格缩放到一页上。
-- 发布时间：2019/1/8 16:53:00
--
此主题相关图片如下：535f0b8b22989a2321c8dc390723568.png
-- 发布时间：2019/1/8 16:58:00
--
excel报表？如果是，你直接在excel模板那里设置打印的选项即可。
请具体说明你的问题，上传实例测试。
-- 发布时间：2019/1/8 17:08:00
--
其实你明白的。何必绕来绕去呢！
自适应页面 就是根据表格的实现宽度和高度，绽放在一个打印页面上，比如A4纵向。
-- 发布时间：2019/1/8 17:32:00
--
不理解你到底说什么
此主题相关图片如下：qq截图20190108173202.png
-- 发布时间：2019/1/14 20:29:00
--
就是如何通过代码实现你的单页压缩
-- 发布时间：2019/1/14 20:58:00
--
参考：http://www.foxtable.com/webhelp/scr/2121.htm
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("F:\\abc.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2019/1/15 9:24:00
--
以下是引用nxhylczh在2019/1/14 20:29:00的发言：
就是如何通过代码实现你的单页压缩
就是如何通过代码实现你的单页压缩
具体问题，具体分析啊。请上传具体实例测试。