Foxtable(狐表)用户栏目专家坐堂 → [求助]EXCEL报表直接打印


  共有3278人关注过本帖平板打印复制链接

主题:[求助]EXCEL报表直接打印

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


加好友 发短信
等级:三尾狐 帖子:780 积分:5756 威望:0 精华:0 注册:2012/10/21 7:57:00
  发帖心情 Post By:2014/12/26 15:51:00 [只看该作者]

经运行,弹出下面的信息,请问该如何修改红色部分的代码?

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

With Ws.PageSetup
    .
PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小
    .CenterHorizontally = True   '页面水平居中
    .CenterVertically = True '页面垂直居中
    .Zoom = False '以下设置将缩印在一页内
    .FitToPagesWide = 1  '按照1页的宽度打印
    .FitToPagesTall = 1  '按照1页的高度打印
End With



 回到顶部
总数 15 1 2 下一页