我有以下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，从而生成这些空白。
页面布局中的所有渗出物仍然无法解决问题。
一种选择是使用.CenterHorizontally均等地平衡数据两侧的空白边距，例如：
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提供比此更好的控件的访问权限。干杯。