保存PDF时,VBA命令按钮会继续调整大小

时间:2018-04-17 14:58:41

标签: vba excel-vba excel

我在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

1 个答案:

答案 0 :(得分:0)

GMalc上面发布的链接提供了非常有价值的见解。我的问题可能是由于文件位于与本地计算机不同的服务器上,并且某些分辨率差异可能导致调整大小。

替代方法 在子I暂时禁用屏幕更新并保持在同一张纸上。这不再导致按钮调整大小。