如何使用填充整个页面宽度的列将电子表格导出为PDF

大家好 我创build了一个macros来导出我在Excel中创build的一些模板。 模板的范围是A1：T79。 我设置了下面的代码来取得这个范围，并把它变成一个PDF文档（工作正常）。

问题是，它创build的PDF文档在右侧有一个巨大的空间。 我希望列（从A到T）充分填充页面宽度的结尾（不关心调整到多less页面的长度）。

我已经尝试了一些东西，看了一下这个网站上的一些相关链接，但都没有工作（这就是为什么我再次要求而不是回应一个一岁以上的旧post）。 任何帮助将不胜感激。 代码如下。 如果我没有正确解释任何东西，请告诉我，我会在下面回复。 谢谢！ 🙂

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