procedure PrintPDF(aFileName: TFileName);
begin
if not FileExists(aFileName) then
raise Exception.Create('Error en la ruta o el nombre del archivo');
ShellExecute(Screen.ActiveForm.Handle, 'print', PChar(aFileName), nil ,nil, 0)
end;
...
begin
PrintPDF('archivo.pdf');
end;