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
|
MVP
Pontos: 320
    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ódigoprocedure 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
|
MVP
Pontos: 320
    21 nov 2016

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