Imprimir imagem em Argox OS-214 plus series PPLA

09/05/2016

0

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.
Rafael Santos

Rafael Santos

Responder

Posts

12/05/2016

Dorivan Sousa

vc ta usando os compnentes do ACBr?
Responder

12/05/2016

Rafael Santos

Não Dorivan, estou desenvolvendo direto na linguagem da impressora PPLA.
Segue trexo do 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;
Responder

21/11/2016

Dorivan Sousa

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

31/07/2017

Sergio Santos

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

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar