Sub PechPDF()
'
' Макрос77 Макрос
'
Dim s As String
s = Application.ActivePrinter
'  Range("Z1").Select
'  Range("Z1") = s - для считывания имени вашего принтера / вначале поставить для распечатки нужный принтер
' Имя моего виртуального принтера - заменить на Ваш виртуальный принтер


'
Application.ActivePrinter = "Microsoft Print to PDF (Ne02:)"

   ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,,,FALSE)"
   
End Sub

может пригодится кому

A = Range("B1").Value
   B = Range("B2").Value
   Ñ = A & "_" & B & ".xls"
           
        iPath = ThisWorkbook.Path
        iPath = iPath & "\" & Ñ
       
      ActiveWorkbook.SaveAs FileName:=iPath _
       , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
       ReadOnlyRecommended:=False, CreateBackup:=False