Fórum Imprimir imagem em Argox OS-214 plus series PPLA #553560

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;