- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100276)
-- 发布时间：2017/5/8 16:54:00
-- [求助]
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(filePath)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
.PrintArea=PrintArea \'打印区域
\'.BottomMargin=5
.TopMargin=15 \'上边距
.LeftMargin=50 \'左边距
\'.RightMargin=5
.zoom=85 \'缩放打印
End With
设置打印设置，一直会弹出是否保存Excel？这个什么问题，请老师指点下
此主题相关图片如下：20170508165255.png
此主题相关图片如下：20170508165255.png-- 发布时间：2017/5/8 17:00:00
--
Dim app As new MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
.TopMargin=15 \'上边距
.LeftMargin=50 \'左边距
End With
wb.saved = True
app.visible = True
Ws.PrintPreview
app.quit
-- 发布时间：2017/5/8 17:08:00
--
可以了 谢谢老师