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); 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.