将Excel范围导出到PDF,但填写整个PDF页面,不带页边距

dm7nw8vv  于 2022-11-18  发布在  其他
关注(0)|答案(1)|浏览(327)

我想将Excel范围导出为PDF,并使用VBA函数workbook. ExportAsFixedFormat进行管理。
我的问题是,当我打开PDF时,导出的范围没有填充整个PDF页面,可能是因为标准PDF页面的两侧、顶部和底部的页边空白。
我想导出范围,但同时填写整个PDF页面。
这是我现在的宏。我正在导出范围B2-I103。

Sub printToPDF()

ActiveSheet.Range("B2:I103").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveSheet.Range("K21").Value & ActiveSheet.Range("K23").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
openafterpublish:=True

End Sub

我得到的是:

我确实想去掉图片周围的白色边距,填满整页。
解决方案非常受欢迎!

hjzp0vay

hjzp0vay1#

这不是一个完整的答案,但太长的评论...因此添加作为一个答案...希望它能帮助你在正确的方向前进。
ExportAsFixedFormat借用相关工作表的PageSetup对象所使用的设置。因此,如果您这样做...

With ActiveSheet.PageSetup
    .TopMargin = 0
    .BottomMargin = 0
    .LeftMargin = 0
    .RightMargin = 0
End With

...首先,您需要最小化边界...虽然我测试时并没有消除它们。您可以尝试一下其他PageSetup属性,您可以在这里看到PageSetup,看看是否可以消除它们。

相关问题