我在Excel 2010中选择了以下选项:
- 对象定位设置为不移动或按单元格大小 -Locked -Locked Text
Sub SavePDF_Click()
Dim PDFDir As String
Dim ReportDate As Variant
ReportDate = Format(Worksheets(1).Range("C6").Value, "mmddyy")
PDFDir = "\\myserver\files\daily_reports\"
Sheets(Array("Cover_Page", "Blank_Page", "Assets", "Analytics")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDFDir & "daily_reports_" & ReportDate & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Assets").Select
Worksheets("Assets").Activate
MsgBox ("PDF Saved")
End Sub
答案 0 :(得分:0)
GMalc上面发布的链接提供了非常有价值的见解。我的问题可能是由于文件位于与本地计算机不同的服务器上,并且某些分辨率差异可能导致调整大小。
替代方法 在子I暂时禁用屏幕更新并保持在同一张纸上。这不再导致按钮调整大小。