Excel打印到pdf是否在右侧添加空白/页边距？

我有以下VBA代码：

Sub generatepdf()

With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesTall = False
.FitToPagesWide = 1
.LeftMargin = Application.CentimetersToPoints(0)
.RightMargin = Application.CentimetersToPoints(0)

End With

Range("b3:j43").ExportAsFixedFormat xlTypePDF, Filename:=Range("c11").value & "-" & Range("c16").value, openafterpublish:=True

End Sub

每当我运行代码并制作pdf时，右边都有空白。事件正常打印或另存为pdf生成这些空白

---

尝试在页面布局和所有页面中查看，仍然无法解决此问题。

一个选项是使用.center水平平衡数据两侧的白边距，例如：

Sub generatepdf()

    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesTall = False
        .FitToPagesWide = 1
        .LeftMargin = Application.CentimetersToPoints(0)
        .RightMargin = Application.CentimetersToPoints(0)
        .CenterHorizontally = True
        .CenterVertically = True
    End With

    Range("b3:j43").ExportAsFixedFormat xlTypePDF, Filename:=Range("c11").Value & "-" & Range("c16").Value, openafterpublish:=True

End Sub

---

另一个选项是，如果数据不改变宽度，则使用.Zoom手动调整宽度。我怎么也看不到VBA提供了对任何比这更好的控件的访问。干杯。

问题是我在顶部有一个图像，它必须在顶部全宽缩放/出血。但右边有一个空白，令人沮丧。。