Array
(
)

Imprimir imagem em Argox OS-214 plus series PPLA

Rafa Ferreira
   - 09 mai 2016

Prezados,
Estou com um problema ao fazer a impressão de imagens utilizando a linguagem PPLA da Argox OS-214P.
Alguém já teve o mesmo problema?
Qual foi a solução obtida?
Obrigado.
Att
Rafael Ferreira.

Dorivan Sousa
   - 12 mai 2016

vc ta usando os compnentes do ACBr?

Rafa Ferreira
   - 12 mai 2016

Não Dorivan, estou desenvolvendo direto na linguagem da impressora PPLA.
Segue trexo do código.

#Código

procedure TfrmImpArgox.Button1Click(Sender: TObject);
Var Device            : String ;
    Driver            : String ;
    vPorta            : String ;
    DeviceMode        : tHandle;
    Handle            : tHandle;
    N                 : DWord  ;
    DocInfo1          : TDocInfo1;
begin
  ////////////////////////////////////////////////////////////////////////
  // PARA FAZER TESTES É NECESSÁRIO TER A IMPRESSORA ARGOX COMO DEFAULT //
  ////////////////////////////////////////////////////////////////////////
  
  SetLength(Driver,255);
  SetLength(Device,255);
  SetLength(vPorta,255);
  Printer.GetPrinter(pchar(Device),pchar(Driver),pchar(vPorta),DeviceMode);

  OpenPrinter(pChar(Device),Handle, Nil);
  DocInfo1.pDocName     := pChar('Etiqueta 518');
  DocInfo1.pOutPutFile  := nil;
  DocInfo1.pDataType    := 'RAW';

  StartDocPrinter(Handle, 1, @DocInfo1);
  StartPagePrinter(Handle);

  WritePrinter(Handle,pChar('L' +#13),Length('L' +#13),N);
  WritePrinter(Handle,pChar('D11'+#13),Length('D11'+#13),N);
  WritePrinter(Handle,pChar('H10'+#13),Length('H10'+#13),N);

  // IMPRIMIR TESTE
  WritePrinter(Handle,pChar('191100201950122TESTE' + #10+#13),
                     Length('191100201950122TESTE' + #10+#13),N);

  WritePrinter(Handle,pChar('E'+#13),Length('E'+#13),N);

  EndPagePrinter(Handle);
  EndDocPrinter(Handle);
end;

Dorivan Sousa
   - 21 nov 2016

Pode usar o programa da impressora pra ter os parametros que vc precisa, eu uso o acbr por ser mais facil

Sergio Santos
   - 31 jul 2017

Estou com o mesmo problema. Alguém conseguiu solucionar esta questão?