|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
有一个word文档共有5个节,想按节通过Adobe PDF的虚拟打印机打印成PDF。代码如下,
Sub 【CTRL_5】按节打印()
'
' 按节打印 宏
'
'
ActivePrinter = "Adobe PDF"
For i = 1 To 5 Step 1
Application.PrintOut FileName:="", _
Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentWithMarkup, _
Copies:=1, _
Pages:="s" & i, _
PageType:=wdPrintAllPages, _
Collate:=True, _
Background:=True, _
PrintToFile:=False, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Next i
End Sub
目前已经实现了部分功能,可以按节打印,但是还希望更加方便一点,但是超出我的能力,希望各位大神能帮忙实现。
1、输出的5个PDF的文件名全部相同,要手动命名区分。希望自动命名成word文档名+“第一节”、word文档名+“第二节”、word文档名+“第三节”、word文档名+“第四节”+word文档名+“第五节”。其中“第几节”,和数字没有关系,只是代表名称。
2、打印输出PDF时,弹出储存路径的对话框,要手动点存储,很麻烦(详见附图)。希望不弹出该对话框,PDF文件直接储存在word文档所在的路径、或者存在桌面,都可以,看哪个好实现。
|
|