VBS pdfPrint

Set objShell = CreateObject("WScript.Shell")
strFilePath = ".\ABC.pdf"

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFilePath) Then
objShell.Run "rundll32.exe shell32.dll,ShellExec_RunDLL " & Chr(34) & strFilePath & Chr(34)
Else
MsgBox "File not found.", vbExclamation, "Error"
End If