如何在横向保存PDF和更改纸张大小
如何在横向保存PDF和更改纸张大小
提问于 2020-02-08 00:28:09
我需要改变这个“保存为pdf”代码为景观和合法的大小。
下面是我当前的代码：
Sub SavePDF()
Dim sFile As String
sFile = Application.DefaultFilePath & "\" & _
ActiveWorkbook.Name & ".pdf"
ActiveSheet.PageSetup.PrintArea = "A1:K27"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub回答 1
Stack Overflow用户
发布于 2020-02-08 02:29:30
Sub SavePDF()
Dim sFile As String
ActiveSheet.PageSetup.Orientation = xlLandscape
sFile = Application.DefaultFilePath & "\" & _
ActiveWorkbook.Name & ".pdf"
ActiveSheet.PageSetup.PrintArea = "A1:K27"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub如果这还不够，则返回You can check a similar solution here
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/60117449
复制相关文章
相似问题
腾讯云开发者
