ACBRETQ - Impressora Térmica Tomate MDK-006 via USB

[Art Só Melhores]

Estou tentando imprimir com a Impressora Térmica Tomate MDK-006 pelo acbrEtq, mas não consgui até então. usei as seguintes configurações:Até vi posts da configuração da MDL080. Alguem sabe o que seria preciso para a mdk-006 funcionar pelo acbrEtq?         Estou usando o seguinte método para isso:

procedure TGerarEtiqueta.ImprimirEtiquetaSimples(Mercadoria: TOrObject; qtdImpressao: integer);
var
  lNome, lReferencia, lTamanho, lPreco: string;
  linha1, linha2: string;
  Conf: TConfigEtiqueta;
  FontePadrao, FontePreco: string;
begin
  ConfigurarACBrETQ;

  with dtmData.ACBrETQ do
  begin
    if Mercadoria is TMercadoria then
    begin
      lNome := (Mercadoria as TMercadoria).getNome;
      lReferencia := (Mercadoria as TMercadoria).getReferencia;
      lTamanho := (Mercadoria as TMercadoria).getTamanho;

      if lReferencia = NULL_STRING then
        lReferencia := 'Sem Ref';

      lPreco := Trim(Format('%6.2n', [(Mercadoria as TMercadoria).getValVenda]));
    end;

    Conf := (ConfigEtiqueta as TConfigEtiqueta);

    if Modelo = etqTSPL then
    begin
      // Impressoras TSPL (Tomate / Rongta / TSC) aceitam fontes numéricas (0–8)
      FontePadrao := '0';  // equivalente à "D"
      FontePreco  := '1';  // equivalente à "E"
    end
    else
    begin
      // Impressoras Zebra / Argox continuam usando letras
      FontePadrao := 'D';
      FontePreco  := 'E';
    end;

    // --- Modelos suportados ---
    if Modelo in [etqZPLII, etqEPL2, etqPPLA] then
    begin
      if Assigned(Conf) then
      begin
        // --- Nome ---
        if Conf.getExibirNome then
        begin
          if Length(lNome) > 16 then
          begin
            linha1 := Copy(lNome, 1, 16);
            linha2 := Copy(lNome, 17, 16);
            ImprimirTexto(orNormal, FontePadrao,
              Conf.getNomeFonte, Conf.getNomeTamanho,
              Conf.getNomeY, Conf.getNomeX,
              linha1, 0, True);
            ImprimirTexto(orNormal, FontePadrao,
              Conf.getNomeFonte, Conf.getNomeTamanho,
              Conf.getNomeY + 1, Conf.getNomeX,
              linha2, 0, True);
          end
          else
            ImprimirTexto(orNormal, FontePadrao,
              Conf.getNomeFonte, Conf.getNomeTamanho,
              Conf.getNomeY, Conf.getNomeX,
              lNome, 0, True);
        end;

        // --- Tamanho ---
        if Conf.getExibirTamanho and (lTamanho <> '') then
          ImprimirTexto(orNormal, FontePadrao,
            Conf.getTamanhoFonte, Conf.getTamanhoTamanho,
            Conf.getTamanhoY, Conf.getTamanhoX,
            'Tam: ' + lTamanho, 0, True);

        // --- Referência ---
        if Conf.getExibirReferencia then
          ImprimirTexto(orNormal, FontePadrao,
            Conf.getRefFonte, Conf.getRefTamanho,
            Conf.getRefY, Conf.getRefX,
            'Ref: ' + lReferencia, 0, True);

        // --- Preço ---
        if Conf.getExibirPreco then
          ImprimirTexto(orNormal, FontePreco,
            Conf.getPrecoFonte, Conf.getPrecoTamanho,
            Conf.getPrecoY, Conf.getPrecoX,
            'R$ ' + lPreco, 0, True);
      end
      else
      begin
        // --- Sem configuração ---
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 0, lNome, 0, True);
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 1, 'Tam: ' + lTamanho, 0, True);
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 2, 'Ref: ' + lReferencia, 0, True);
        ImprimirTexto(orNormal, 'E', 3, 3, 16, 35, 'R$ ' + lPreco);
      end;
    end
    else
    begin
      // --- Outros modelos genéricos ---
      if Assigned(Conf) then
      begin
        // Nome
        if Conf.getExibirNome then
          ImprimirTexto(orNormal, FontePadrao,
            Conf.getNomeFonte, Conf.getNomeTamanho,
            Conf.getNomeX, Conf.getNomeY,
            lNome, 0, True);

        // Tamanho
        if Conf.getExibirTamanho then
          ImprimirTexto(orNormal, FontePadrao,
            Conf.getTamanhoFonte, Conf.getTamanhoTamanho,
            Conf.getTamanhoX, Conf.getTamanhoY,
            'Tam: ' + lTamanho, 0, True);

        // Referência
        if Conf.getExibirReferencia then
          ImprimirTexto(orNormal, FontePadrao,
            Conf.getRefFonte, Conf.getRefTamanho,
            Conf.getRefX, Conf.getRefY,
            'Ref: ' + lReferencia, 0, True);

        // Preço
        if Conf.getExibirPreco then
          ImprimirTexto(orNormal,FontePreco,
            Conf.getPrecoFonte, Conf.getPrecoTamanho,
            Conf.getPrecoX, Conf.getPrecoY,
            'R$ ' + lPreco, 0, True);
      end
      else
      begin
        // --- Sem configuração ---
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 0, lNome, 0, True);
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 1, 'Tam: ' + lTamanho, 0, True);
        ImprimirTexto(orNormal, 'D', 10, 10, 1, 2, 'Ref: ' + lReferencia, 0, True);
        ImprimirTexto(orNormal, 'E', 3, 3, 16, 35, 'R$ ' + lPreco);
      end;
    end;

    // === Impressão final ===
    ImprimirEtiquetaComCopiasEAvanco(qtdImpressao);
  end;

  dtmData.ACBrETQ.Desativar;
end;

 

[Juliomar Marchetti]

sugestão para o demo do svn e roda ele até achar a configuração que possa usar

[Wilson Fernandes dos Santos]

É possivel configurar etiquetas para esta impressora nas linguagens Zebra, Argox ou Eltron  (ZPL, TLP ou EPL). ?

[Bruno da Silva Pereira]

Alguém conseguiu fazer funcionar essa impressora com o ACBRETQ?
Pois temos uma cliente que tem essa impressora e não conseguimos fazer ela funcionar com  componente da ACBR, o suporte da empresa Tomate não funciona bem.
E pelo visto essas impressoras irão ficar mais comum até pelo fato de elas serem mais baratas, foi testadas com todas as opções pelo nosso sistema porém sem sucesso, fico no aguardo se alguém achou alguma forma de ela funcionar.
 

[Bruno da Silva Pereira]

Tive uma resposta do suporte da TOMATE informando que essa impressora usa a LINGUAGEM TSPL, assim que tivermos novidades sobre essa impressora avisamos por aqui.

[samtter]

Pelo retorno do suporte da Tomate, o fato dela usar linguagem TSPL já é meio caminho andado. Pelo que testei/ví em outros modelos, o ideal é tratar a MDK‑006 como impressora TSPL mesmo, ajustar o Modelo do ACBrETQ para etqTSPL e ir validando as fontes/comandos a partir do demo do SVN, como o Juliomar comentou.
Se alguém já tiver um INI ou configuração estável (tamanho de etiqueta, densidade, avanço, etc.) pra esse modelo, seria legal compartilhar aqui pra gente não ficar todo mundo reinventando o mesmo setup.

[Bruno da Silva Pereira]

Bom dia, nesse posto o teste foi feito com outro modelo da Tomate e funcionou perfeitamente.

https://www.projetoacbr.com.br/forum/topic/90145-impressora-tomate-mdk2074a-com-componente-acbr/#comment-597000

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.