尝试使用VBA在Excel中保存并打印单张纸
我一直在寻找我的经理正在进行的问题,我很难过,他试图得到它,所以当最终用户点击Excel工作表中的一个macros分配button时,它将一张纸保存为PDF并打印工作表太。
我已经得到了底部提供的图像显示的点,代码运行直到“ActiveSheet.ExportAsFixedFormat”行。 有没有人有什么build议我应该用什么来获得解释?
我真的很感激。
这是我到现在为止的代码:
Public Sub SavePrint() ChDir "Path-to-the-file" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "Path-to-the-file\ACT Form.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub
问候,基兰
注1: ChDir
需要适当使用; 之后,您更改了path,您不需要将其包含在Filename
,Excel自动将文件保存在当前目录中。
注2:您需要PDF加载项才能使用ExportAsFuxedFormat
。 要确保您已经将它导航到Excel > File > Options > Add-Ins > (at the bottom) Manage: COM Add-ins
然后findAdobe PDF
或用于pipe理PDF的任何其他应用程序(例如NitroPDF
或BlueBeam
)并检查框。 如果您没有Adobe PDF
那么您需要将其安装到您的机器上,并在运行此macro
之前在Excel中激活它(即,选中该框)。
Public Sub SavePrint() ChDir "C:\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "ACT Form.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub
这将把PDF文件保存在C:\
文件夹中。
阅读这篇文章 ,了解更多关于ChDir
。
阅读这个获得有关ExportAsFixedFormat
的见解。
您可以在这里find如何将Adobe PDF
添加到Excel中。