Imprimir imagem em Argox OS-214 plus series PPLA
09/05/2016
0
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
Posts
12/05/2016
Rafael Santos
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;
21/11/2016
Dorivan Sousa
31/07/2017
Sergio Santos
Clique aqui para fazer login e interagir na Comunidade :)