[Lazarus-es] lazreport matriz

[Yuri Pacoricona Palomino]

Tengo un sistema que envía la impresión directamente a un archivo que
puede ser un puerto paralelo, serial o un archivo de texto. El código es
el siguiente:

procedure TfSistema.oImprimirClick;
var
MyPrinter:textfile;
cStr:string;
begin
    try
      AssignFILE(MyPrinter,'LPT1');
//      AssignFILE(MyPrinter,'LPTFILE.txt');
      ReWrite(MyPrinter);
      Writeln(MyPrinter,chr(27)+'@');  // Inicializa
      Writeln(MyPrinter,chr(27)+':');  // 16cpi
      Writeln(MyPrinter,'        AEROPUERTO "MANCO CAPAC"');
      Writeln(MyPrinter,'          R.U.C. 20100004675');
      Writeln(MyPrinter,'          Maq:  041191200036');
      Writeln(MyPrinter,'----------------------------------------');
***
    Otros Datos a imprimir
***
      Writeln(MyPrinter,chr(27)+'d0'); //Corte
       // WriteLn(MyPrinter,#27#105);
    finally
      CloseFile(MyPrinter);
  end;
end;                     


Espero sea lo que estés necesitando


-- 
Yuri Pacoricona Palomino
Puno-Peru





------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20100802/8f9ad267/attachment-0002.html>