Para imprimir texto en Delphi usando las funciones de impresión del API
Código Delphi
[-]
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
AddJob(H,1,Info,1000,Size);
AssignFile(F,Info^.Path);
Rewrite(F);
try
Writeln(F,'¡Hola mundo!');
Writeln(F,'Test de impresión...');
finally
CloseFile(F);
end;
ScheduleJob(H,Info^.JobId);
finally
FreeMem(Info,1000);
ClosePrinter(H);
end;
end;