Problemas con TAcroPdf en Tiempo de ejecucuón

[ozsWizzard]

También me vale la opción de que con el ShellExecuteEx pueda imprimir sin abrir el acrobat (que ya sé que no se puede) pero no me vale terminar el proceso yo mismo porque no puedo asegurarme de que lo haya imprimido.

Y me da exactamente igual usar el TAcroPdf en tiempo de diseño que en tiempo de ejecución, lo que me gustaría es mantener la funcionalidad dentro de "MiClase" y no tener que llevármela al Form.

[ozsWizzard]

Acabo de descubrir con asombro que, hasta que no acaba el hilo del proceso entero, no carga el pdf.

Es decir, incluso en un formulario, si hago el LoadFile y el Print seguidos, no funciona. y da igual que lo meta en procedientos distintos, que ponga Sleeps de los segundos que quiera, Application.ProcessMessages, etc. Da excatamente igual, no imprime (porque realmente no ha cargado el pdf).

En caso contrario, si pongo en un evento onclick de un botón el "LoadFile" y en el evento onclick de otro botón el "Print", funciona correctamente.

Mi problema está en que lo que realmente quería hacer es una iteración donde se reccorre un dataset con el nombre de cada fichero y quiero imprimir los que tenga marcados (da igual el método).

Con esta premisa, es imposible hacer lo que quiero hacer.

Total, que si alguien sabe alguna forma de imprimir pdf directamente en la impresora y que se pueda hacer de forma seguida (indicar fichero e imprimir)... que me lo haga saber.

Había pensado en poner en hilos distintos el loadFile y el print, pero eso debe de ser una locura.

[ozsWizzard]

Para que se vea a qué me refiero, estas son las pruebas que he hecho.

Con este código, cuando pulso Button1, no imprime nada, cuando pulso Button2 después de haber pulsado Button1, imprime.

Lo que me ha hecho gracia, y por si a alguien le puede servir para hallar una solución es que, cuando se pulsa Button1 (sin que haya un pdf cargado) hasta los 7 segundos (los 6 del Sleep y algo más), no se ve el pdf en el TAcroPdf.

Utilizo PrintAll porque Print abre un dialogo de impresión, aunque las pruebas las hago con print porque es más rápido ver que abre el dialogo que ir a la impresora (en la otra punta de la oficina) a ver si ha imprimido algo.

Código Delphi [-]
procedure TForm1.CargarFilePdf;
var
   dlg: TOpenDialog;
begin
   dlg := TOpenDialog.Create(Self);
   try
      if dlg.Execute then
      begin
         AcroPdf1.LoadFile(dlg.FileName);
         Application.ProcessMessages;
         AcroPdf1.PrintAll;
      end;
   finally
      dlg.Free;
   end;
end;

procedure TForm1.sButton1Click(Sender: TObject);
begin
   CargarFilePdf;
   Sleep(6000);
   AcroPdf1.PrintAll;
end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
   AcroPdf1.PrintAll;
end;

Saludos.