求助各路呀各路呀大神。代码该如何写

M13407102223 · 发表于 2024-5-20 23:00

本帖最后由 M13407102223 于 2024-5-20 23:02 编辑

问题描述：附件文件已经设置打印区域打印目的为输出成PDF, 打印机已经默认为PDF,

想实现的目的，通过VBA代码通过点击按钮自动生成为文件名为：单元格C5 内容格式为PDF

M13407102223 · 发表于 2024-5-20 23:03

路径指定到D:

3190496160 · 发表于 2024-5-21 08:03

Sub 保存为pdf()
With ActiveSheet
mc = .[c5]
.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\" & mc & ".pdf"
End With
End Sub

3190496160 · 发表于 2024-5-21 08:04

求助.rar (1.84 MB, 下载次数: 4)

杨成云 · 发表于 2024-5-21 09:21

①如果打印机已设置为微软的PDF虚拟打印机、或福昕PDF虚拟打印机、或PDF-XChange Lite虚拟打印机等等，可以直接打印。

②也可以另存为PDF
③使用工作表中的按钮，保存为PDF，代码如下

Sub 保存为PDF()
'ActiveSheet.Save
Savename = ActiveWorkbook.Path & "\" & ActiveSheet.[c5] & ".pdf"
'ChDir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Savename, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

③使用这个软件，功能极强：虚拟打印机priPrinter

例如：
页面重排序。通过鼠标拖放操作变更页面顺序或是其在纸上的位置。
丰富灵活的页面布局。交互控制的方式按需调整打印布局和页面尺寸
移除空页或不想要的页。
自动页面编号
打印至物理打印机、保存为图像文件或是发布为 PDF 文档
合并多个打印作业
每个动作均可撤销
将经常使用的设置保存为个性化打印机模版

		自动登录	找回密码
密码			免费注册

[求助] 求助各路呀各路呀大神。代码该如何写