时间戳

首页 > 解决方案 > 在 vba 中导出为 pdf 时，如何将我的数据放在一张纸上？

excel - 在 vba 中导出为 pdf 时，如何将我的数据放在一张纸上？

问题描述

我正在尝试将我的一张 Excel 工作表上的特定范围导出为 pdf。它在底部切掉一小部分并将其放在下一页上。我的问题是：如何更改下面的代码以允许“适合一页”选项以及如何制作方向横向？

Sub printdispatchsheet()
Sheets("DispatchSheet").Range("A1:J48").ExportAsFixedFormat 
Type:=xlTypePDF, fileName:= _
"c:\Users\name\Desktop\DispatchSheet.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End Sub

标签： excelvba

解决方案

你能试试看这是否有效吗？另请查看正确设置打印区域是否有帮助，如果没有修改该部分代码以True

Sub printdispatchsheet()

With Sheets("DispatchSheet")
    .PageSetup.Orientation = xlLandscape
    .PageSetup.Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

Sheets("DispatchSheet").Range("A1:J48").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="c:\Users\name\Desktop\DispatchSheet.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

 End Sub

推荐阅读