Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
      Dim myShell As Object: Set myShell = CreateObject("WScript.Shell")
      Err.Clear: On Error Resume Next
      myShell.Run "C:\123.pdf"
      If Err.Number = 0 Then
          Cancel = True
          Exit Sub
      End If
      'Дале ваш макрос по созданию новой ПДФ
End Sub

Option Explicit
Public R As Integer
Public C As Integer

'печать паспорта
Sub Кнопка2_Щелчок()
'ПЕЧАТЬ ПАСПОРТА ВЫБРАННОЙ ПАРТИИ
'открыть файл паспорта соответствуюшего ЛКМ
Dim vПутьКПапке As String
Dim Name_File As String
Dim Name As String
Dim part As Variant
Dim pasp As Variant
Dim Mass As Variant
Dim myShell As Object: Set myShell = CreateObject("WScript.Shell")
Dim dataName$
Dim prName$

' определяем координаты активной ячейки журнала
R = ActiveCell.Row
C = ActiveCell.Column
' DataName и prName переменные имени пдф
dataName = Workbooks("Журнал контроля техпроцесса(ВОДНЫЕ).xlsm").Sheets(1).Cells(R, 1).Value
prName = Workbooks("Журнал контроля техпроцесса(ВОДНЫЕ).xlsm").Sheets(1).Cells(R, 4).Value

'MsgBox "R= " & R & " " & "C= " & C
' поместим значения координат акт. ячейки на лист "settings"
Workbooks("Журнал контроля техпроцесса(ВОДНЫЕ).xlsm").Sheets(4).Cells(1, 1).Value = R
Workbooks("Журнал контроля техпроцесса(ВОДНЫЕ).xlsm").Sheets(4).Cells(2, 1).Value = C
If R = 1 Or R = 2 Then
MsgBox "Установите курсор в строку с данными партии, паспорт которой Вы хотите печатать."
Exit Sub
End If
Err.Clear
On Error Resume Next
myShell.Run "Z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\BazaPDF\" & dataName + " " + prName & ".pdf"
   If Err.Number = 0 Then
   Exit Sub
   End If

' присвоим переменной Name_File значение имени файла паспорта
Name = Sheets(1).Cells(R, 4).Value
pasp = Sheets(1).Cells(R, 2).Value
part = Sheets(1).Cells(R, 3).Value
Mass = Sheets(1).Cells(R, 7).Value
Name_File = "ПК_" & Sheets(1).Cells(R, 4).Value
Dim nVar As Integer
nVar = MsgBox("Вы уверены, что Вам нужен парпорт № " & pasp & " партии № " & part & " на " & Name & " ?", 65, "Последнее китайское предупреждение")
' если нажата кнопка ОК, то открываем файл по заданному пути и имени. Иначе ничего.
If nVar = 1 Then
       vПутьКПапке = "z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\ПАСПОРТА2\"
       Workbooks.Open vПутьКПапке & "\" & Name_File & ".xlsm"
End If
End Sub

myShell.Run ..........

If nVar = 1 Then
      vПутьКПапке = "z:\IT-отдел\alexei\ОТК\ВОДНЫЕ\ПАСПОРТА2\"
      'vПутьКПапке = "C:\downloads\1\ВОДНЫЕ\ПАСПОРТА готовые (водные)"
     'vПутьКПапке = "G:\ОТК\ВОДНЫЕ\ПАСПОРТА готовые (водные)"
      Workbooks.Open vПутьКПапке & "\" & Name_File & ".xlsm"
End If

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
     Dim myShell As Object: Set myShell = CreateObject("WScript.Shell")
     Err.Clear: On Error Resume Next
     myShell.Run "C:\123.pdf"
     If Err.Number = 0 Then
         Cancel = True
         Exit Sub
     End If
     'Дале ваш макрос по созданию новой ПДФ
End Sub