PDF 파일을 Viewer로 Load해서 해당 파일이 출력하는데...
한꺼번에 여러개의 파일을 출력하려고 하면,
하나의 파일이 Viewer로  Load 된 후 Spool 중이어서 출력이되기전에
새로운 파일이 Viewer로  Load되어 그 파일을 덮어써 버리면
Spool되는 중이던 앞의 파일은 Spool에서 삭제가 되어 버린답니다.

이런경우 Spooling 다 되기까지 기다렸다
새로운 파일을 Load하도록 처리하는 방법을 찾고 있습니다.

procedure TForm1.Button1Click(Sender: TObject);
var strFile1, strFile2 : string;
    i: integer;
begin
  strFile1 := 'e:winnta.pdf';
  for i :=0 to 2 do
  begin
    strFile2 := 'e:winnta' + intToStr(i) + '.pdf';
    caption := inttostr(i)+ '  ' + strFile2 ;
    ListBox1.Items.Add('======= ' + caption + '======= ');

    //   ListBox1.Items.Add('Copy File');
    CopyFile( PCHAR(strFile1), PCHAR(strFile2), FALSE );


    //ListBox1.Items.Add('Load File');
    Pdf1.LoadFile(strFile2);

    //ListBox1.Items.Add('Delete File');
    DeleteFile(strFile2);

    //ListBox1.Items.Add('Sleep Start');
    //sleep(10000);
    //ListBox1.Items.Add('Sleep End');

    //ListBox1.Items.Add('PrintAll');
    Pdf1.PrintAll;
    ListBox1.Items.Add('ProcessMessages');
    application.ProcessMessages;
  end;
end;


제가 할 수 있는 방법은 거의 다 해본듯 합니다.
방법을 알고 계신분들.. 좀 도와주세여...