Foxtable(狐表)用户栏目专家坐堂 → 报表打印如何实现页面自适应


  共有3285人关注过本帖树形打印复制链接

主题:报表打印如何实现页面自适应

帅哥哟,离线,有人找我吗?
nxhylczh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
报表打印如何实现页面自适应  发帖心情 Post By:2019/1/8 16:17:00 [只看该作者]

请问   FoxTable在报表打印中如何实现页面自适应?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/8 16:37:00 [只看该作者]

1、什么报表打印?

 

2、要做到怎样的效果?实例发上来测试。


 回到顶部
帅哥哟,离线,有人找我吗?
nxhylczh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/1/8 16:51:00 [只看该作者]

将表格缩放到一页上。

 回到顶部
帅哥哟,离线,有人找我吗?
nxhylczh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/1/8 16:53:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:535f0b8b22989a2321c8dc390723568.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/8 16:58:00 [只看该作者]

excel报表?如果是,你直接在excel模板那里设置打印的选项即可。

 

请具体说明你的问题,上传实例测试。


 回到顶部
帅哥哟,离线,有人找我吗?
nxhylczh
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/1/8 17:08:00 [只看该作者]

其实你明白的。何必绕来绕去呢!
自适应页面   就是根据表格的实现宽度和高度,绽放在一个打印页面上,比如A4纵向。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/8 17:32:00 [只看该作者]

不理解你到底说什么

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190108173202.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
nxhylczh
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/1/14 20:29:00 [只看该作者]

就是如何通过代码实现你的单页压缩

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/15 9:24:00 [只看该作者]

以下是引用nxhylczh在2019/1/14 20:29:00的发言:
就是如何通过代码实现你的单页压缩

 

具体问题,具体分析啊。请上传具体实例测试。

 


 回到顶部