我有以下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,从而生成这些空白。
页面布局中的所有渗出物仍然无法解决问题。
答案 0 :(得分:0)
一种选择是使用.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提供比此更好的控件的访问权限。干杯。