如何在Excel VBA中将每个工作表的第一页另存为PDF
如何在Excel VBA中将每个工作表的第一页另存为PDF
提问于 2019-11-01 12:28:48
我有一个保存pdf的按钮，将保存在Sheet1和Sheet2上的所有页面。现在的问题是，我不能让VBA代码只保存每个工作表的第一页，而不保存每个工作表的第1、2和3页。
我已经创建了一个保存为PDF的按钮，它将保存Sheet1和Sheet2，但它打印每个工作表上的所有页面。我只想为每个工作表保存第一页。
Private Sub PrintAllInvoices()
Dim FolderPath As String
FolderPath = "C:\Users\MyComputer\Desktop\PDFs"
MkDir FolderPath
Sheets(Array("Sheet1", "Sheet2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\Sales", _
OpenAfterPublish:=False, IgnorePrintAreas:=False, From:=1, To:=1
MsgBox "All PDF's have been successfully exported."
End Sub我希望当PDF保存时，它将保存Sheet1(第1页)和Sheet2(第1页)。我只希望保存每个工作表的第一页。
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-11-01 12:58:37
尝试一下，用您自己的文件路径替换dir。只要您对该路径具有写入权限，在运行宏后，您应该会看到该路径中每个工作表的1页pdf。一旦对您有效，请根据需要进行修改。
Option Explicit
Sub pdfSavePage()
Dim sh as worksheet
Const dir = "C:\Users\Tony\Documents"
ChDir dir
For each sh in ThisWorkbook.worksheets
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dir & "\" & sh.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
OpenAfterPublish:=False
next sh
End Sub如果您希望将所有这些pdf文件合并到一个文档中，在Mac中使用Preview程序很容易做到，只需将它们拖到第一个文档的侧边栏区域。毫无疑问，在你的操作系统中还有其他程序可以做同样的事情。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58659268
复制相关文章
![AngularJS进阶(十一)AngularJS实现表格数据的编辑,更新和删除[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/86cc8a103023376d63eb1ec1c7292295.png)
点击加载更多
相似问题
不推荐使用反应性形式的NgModel
角4材料显示formArrayName与ngFor和ngModel
Angular -在ngInclude内部调用时不更新ngModel
Angular 2 ngModel值使用离子更新不够快
使用FormArrayName的反应形角
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
