|
发表于 2023-2-4 13:21
|
显示全部楼层
本楼为最佳答案
本帖最后由 哥儿- 于 2023-2-4 13:25 编辑
Sub 批量打印PDF()
For Each sh In Sheets
If sh.Range("k2") = "123456" Or sh.Range("k2") = "789" _
Or sh.Range("k2") = "321" Or sh.Range("k2") = "666" _
Or sh.Range("k2") = "3366" Or sh.Range("k2") = "7788" Then
sh.PageSetup.CenterHeader = " &" & """" & "宋体,加粗" & """" & "&10&K000000 &18AAAAA公司&10" & Chr(10) & "&14采购订单"
Else
sh.PageSetup.CenterHeader = " &" & """" & "宋体,加粗" & """" & "&10&K000000 &18BBBBB公司&10" & Chr(10) & "&14采购订单"
End If
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\\192.168.10.91\采购共享\未发送订单\\" & sh.Name & ".pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Application.ScreenUpdating = False '关闭屏幕闪烁
Next
End Sub
你测试一下。
|
|