[dec]

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
      // 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;