Option Explicit
Sub A()
Dim 路径, 名字
路径 = "此处填保存路径" '比如ThisWorkbook.Path当前工作簿路径,举例C:\Users\Administrator\Desktop\
名字 = "料号、批次、日期分别获取并组合" & ".pdf"
路径 = 路径 & 名字
'-------------
'将当前活动工作表另存为PDF,ActiveSheet也可替换为其他指定工作表方式
网页链接 Type:=xlTypePDF, Filename:=路径, Quality:=xlQualityStandard, openafterpublish:=False
'-------------
'将当前活动工作表输出到打印机,ActiveSheet也可替换为其他指定工作表方式
'其中printout的参数,from为打印起始页,to为结束页,copies为打印份数,省略不填则默认为从第1页起,到最后一页,打印1份
网页链接 from:=1, to:=1, copies:=1
'-------------
End Sub