You want to print PDF's not print to a PDF ?That's right.
The code that Jamie has kindly suggested is the same one I have started the post with.
What happened with me is nothing happend. Just it executes quietly with no action
// or a useful procedure: procedure RunShellExecute(const prog,params:string); begin // ( Handle, nil/'open'/'edit'/'find'/'explore'/'print', // 'open' isn't always needed // path+prog, params, working folder, // 0=hide / 1=SW_SHOWNORMAL / 3=max / 7=min) // for SW_ constants : uses ... Windows ... if ShellExecute(0,'open',PChar(prog),PChar(params),PChar(extractfilepath(prog)),1) >32 then; //success // return values 0..32 are errors end;