OpenPrinter no compila.

[josemmerida]

De los trucos del club tengo este codigo :

Código Delphi [-]
 procedure ImprimirApi;
 var
    H,Size:Integer;
    Info:PAddJobInfo1;
    F:TextFile;
 begin
   with Printer do
      OpenPrinter(PChar(Printers[PrinterIndex]),H,nil); //  <------ aqui falla
      GetMem(Info,1000);
    try
       AddJob(H,1,Info,1000,Size);
        AssignFile(F,Info^.Path);
        Rewrite(F);
        try
          Writeln(F,'Linea1');
          Writeln(F,'Linea2');
          Writeln(F,'Linea3');
          Writeln(F,'Linea4');
          Writeln(F,'Linea5');
          Writeln(F,'Linea6');
          Writeln(F,'Linea7');
          Writeln(F,'Linea8');
        finally
          CloseFile(F);
        end;
        ScheduleJob(H,Info^.JobId);
     finally
     FreeMem(Info,1000);
     ClosePrinter(H);
    end;
 end;

Pues resulta que al compilar se para en la linea :

OpenPrinter(PChar(Printers[PrinterIndex]),H,nil);

y me dice "Types of actual formal and var parameters must be identical".

Debe ser algo sencillo, pero de Api ando muy verde

¿Alguien me ilumina?.

Gracias Anticipadas y saludos.

[Neftali [Germán.Estévez]]

Antes de nada, te recomiendo que utilices TAG's (Utilización de TAG's) en tus mensajes, ya que facilitará la lectura de código (en éste caso te lo modifico yo).

En cuanto al error de compilación, prueba a cambiar la deficición de las variables H,Size de integer a Cardinal. Creo que con eso debería bastar.

Código Delphi [-]
 procedure ImprimirApi;
 var
   Size, H:Cardinal;
   Info: PAddJobInfo1;
   F: TextFile;
 begin