以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]模板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162188)

--  作者:江南小镇
--  发布时间:2021/4/8 14:31:00
--  [求助]模板
老师,怎样设置 页面水平靠上 和放印在一页内

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


--  作者:有点蓝
--  发布时间:2021/4/8 14:41:00
--  
去掉:.CenterVertically = True \'页面垂直居中
--  作者:江南小镇
--  发布时间:2021/4/8 14:54:00
--  
老师,怎样放大打印
--  作者:有点蓝
--  发布时间:2021/4/8 15:21:00
--  
去掉下面代码

    .Zoom = False \'以下设置将缩印在一页内
    .FitToPagesWide = 1  \'按照1页的宽度打印
    .FitToPagesTall = 1  \'按照1页的高度打印

--  作者:江南小镇
--  发布时间:2021/4/9 12:21:00
--  
老师好,靠左,靠右代码怎样写。

.CenterHorizontally = True   \'页面水平居中
    .CenterVertically = True \'页面垂直居中


--  作者:有点蓝
--  发布时间:2021/4/9 13:39:00
--  
去掉上面代码默认就是靠左的。没有靠右的用法