Udskriv med registreret program

Jeg bruger nedenstående function til at forsøge at udskrive en .pas fil ved hjælp af Delphi. Men den går ikke, jeg får en fejl 31 - a device attached to the system is not functioning
Jeg har sakset kode fra bitwise artiklen 'A DELPHI PROGRAM LAUNCHPAD' - med mods.
Hvis jeg ændrer Print til Open, så åbnes filerne lige så fint.

Function FilePrint(Const aFile : String) : THandle;
  Type
    CharArray = Array[0..MAX_PATH] Of Char;
  Var
    ntFileName              : CharArray;
    ntDir                  : CharArray;
    strPath                : String;
begin
  strPath := ExtractFilePath(aFile);
  Result := ShellExecute(Application.MainForm.Handle,
  'Print',
  StrPCopy(ntFileName, aFile),
  Nil,
  StrPCopy(ntDir, strPath),
  SW_HIDE);
End;