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;