[Lazarus-es] imprimir tickeadora: ticket y testigo

Paola Bruccoleri pbruccoleri en adinet.com.uy
Vie Sep 28 20:06:40 CEST 2012


El 27/09/2012 04:18 p.m., Claudio Romero escribió:
> // Aca paso un ejemplo, funciona bien en una matricial Epson FX-870.
> // Saludos.
>
> //---------
> unit ImpDuplicado_;
>
> {$mode objfpc}{$H+}
>
> interface
>
> uses
>    Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
>    StdCtrls,strutils,printers, PrintersDlgs;
>
> type
>
>    { TForm1 }
>
>    TForm1 = class(TForm)
>      Button1: TButton;
>      procedure Button1Click(Sender: TObject);
>    private
>      { private declarations }
>    public
>      { public declarations }
>    end;
>
> var
>    Form1: TForm1;
>
> implementation
>
> { TForm1 }
> procedure ImprimirDuplicadoCadenaRaw(S:String);
> const Kenter=CHR(13)+CHR(10);
> 	ComienzoDuplicado=40;
> var  Written: Integer;
> begin
> 	Written:=0;
> 	S:=S+DupeString(' ',ComienzoDuplicado-Length(S))+S;
> 	S:=S+Kenter;
> 	Printer.Write(S[1], Length(S), Written);
> end;
>
Hola Claudio..
qué sería la función DupeString?
muchas gracias!





More information about the Lazarus-es mailing list