delphi.si

Objavljeno: **09.02.2016 23:51:36**

Uporabljam BlueTooth termični tiskalnik. Tiskam direktno v tisklanik -RAW printing, ker drugače, prek bluetootha, tiska počasi. Vse dela lepo, ustavi se pri QRcodi. Tiskalnik uporablja standardne EPSON(ESC/POS) komande.

Mi lahko kdo pomaga, kako poslati tiskalniku pravilno ESC komando za tiskanje QR code.

Koda: Izberi vse

var Myprinter : TRawPrinter;
    oldprinter : TPrinter;
    Printdialog1    : TPrintDialog;
begin
 Printdialog1 := TPrintDialog.Create(nil);
 MyPrinter:=TRawPrinter.Create;
 oldprinter:=setprinter(MyPrinter);
 try
  if Printdialog1.execute then
  begin
    myprinter.startraw;
    Myprinter.write(#29#40#107#3#0#49#67#3);
    Myprinter.write(#29#40#107#3#0#49#69#48);
    Myprinter.write(#29#40#107#3#0#49#80#48'123456789');
    Myprinter.write(#29#40#107#3#0#49#81#48);

    myprinter.endraw;
  end
 finally
  setprinter(oldprinter);
  myprinter.free;
 end

Hvala!

Objavljeno: **10.02.2016 16:56:01**

Pozdravljeni.

Z naslednjo kodo brez težav izpišem BAR CODO128. Nikakor pa ne pogruntam QRCode.

Lp

Koda: Izberi vse

var Myprinter : TRawPrinter;
    oldprinter : TPrinter;
    Printdialog1    : TPrintDialog;
begin
 Printdialog1 := TPrintDialog.Create(nil);
 MyPrinter:=TRawPrinter.Create;
 oldprinter:=setprinter(MyPrinter);
 try
  if Printdialog1.execute then
  begin
    myprinter.startraw;
    Myprinter.write(chr(29)+'h'+chr(100));  //Velikost 
    Myprinter.write(chr(29)+'w'+chr(3));    //Širina
    Myprinter.write(chr(29)+'f'+chr(2));    //Font
    Myprinter.write(chr(29)+'H'+chr(1));    //Pozicija
    Myprinter.write(chr(29)+'k'+chr(73)+chr(8)+'12345678'); //Bar code128
    Myprinter.write(chr(0));
    Myprinter.write(chr(27)+'d'+chr(3));
    Myprinter.write(chr(29)+'@');
    myprinter.endraw;
  end
 finally
  setprinter(oldprinter);
  myprinter.free;
 end;

delphi.si

Tiskanje QR code na POS termični tiskalnik

Tiskanje QR code na POS termični tiskalnik

Re: Tiskanje QR code na POS termični tiskalnik