Imprimir texto haciendo uso del API de Windows

[dec]

Para imprimir texto en Delphi usando las funciones de impresión del API


procedure TForm1.Button1Click(Sender: TObject);
var
H,Size:Integer;
Info:PAddJobInfo1;
F:TextFile;
begin
with Printer do
OpenPrinter(PChar(Printers[PrinterIndex]),H,nil);
GetMem(Info,1000);
try
// La siguiente función devuelve un archivo en el que nosotros podemos escribir
AddJob(H,1,Info,1000,Size);
// Escribiendo en el archivo
AssignFile(F,Info^.Path);
Rewrite(F);
try
Writeln(F,'¡Hola mundo!');
Writeln(F,'Test de impresión...');
finally
CloseFile(F);
end;
// Tirando el archivo a Windows, Windows lo borrará mas tarde
ScheduleJob(H,Info^.JobId);
finally
// Liberando los recursos
FreeMem(Info,1000);
ClosePrinter(H);
end;
end;