ActiveDelphi

[fabio.avila]

estou fazendo o teste para impressão de etiquetas mas ocorre o seguinte erro: 'Função imprimir testo não implementada em: não definida'

with ACBrETQ do
begin
Modelo := TACBrETQModelo(cbModelo.ItemIndex);
Porta := cbPorta.Text;
Ativar;

ImprimirTexto(orNormal, 2, '2', '2', 190, 5, 'BISCOITO MARILAN RECH 335G');
ImprimirTexto(orNormal, 2, '2', '1', 158, 5, 'CHOC BRANCO');
ImprimirBarras(orNormal, 'F', '2', '2', 32, 0, '7896003701685', 90);
ImprimirTexto(orNormal, 3, '3', '2', 15, 300, 'R$');
ImprimirTexto(orNormal, 3, '4', '4', 15, 450, '20.59');

Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text));
Desativar;
end;

[fabio.avila]

Fazendo testes aqui verifiquei o seguinte:

1-quando abro a janela de etiquetas é iniciado o modelo como 'Ppla'.
2-clico em imprimir teste ocorre o erro que eu mencionei acima.
3-mudo para 'Pplb' acorre erro novamente
4-volto para Ppla e clico em imprimir aí sim a impressão acontece.

[Borland_Linuxer]