vba - 如何将电子表格导出为 PDF，其中的列填充整个页面宽度

Question

大家好。我创建了一个宏来导出我在 excel 中构建的一些模板。模板的范围是 A1:T79。我设置了下面的代码以获取该范围并将其转换为 PDF 文档(效果很好)。

问题是它创建的 pdf 文档在右侧有很大的空间。我希望列(A 到 T)能够端到端地完全填充页面宽度(与调整到长度的页面数量无关)。

我已经尝试了很多方法并查看了该网站上的一些相关链接，但没有一个有效(这就是为什么我再次询问而不是回复一年多的旧帖子!)。任何帮助将不胜感激。代码如下。如果我没有正确解释任何内容，请告诉我，我将在下面回复。谢谢! :)

Sub PDF_Gen()

'Set Page Area. My attempt at trying to fix the page width which doesn't work

With ActiveSheet.PageSetup
    .PrintArea = ActiveSheet.Range("A1:T79")
    .Orientation = xlPortrait
    .FitToPagesWide = 1
    .Zoom = False
End With

'Convert to PDF and save document in C drive

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\template1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Answer 1

现在奇怪的是，这已经解决了。我刚刚设置了分页预览范围，这次它已经工作了，所以我不会问任何问题，只是接受它!这是我要使用的代码

Sub PDF_Gen()

Dim Title As String

'Set Page Break Preview area

ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$T$79"

'Convert to PDF and save in C drive

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\template1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub