Eu estou chamando a proc assim:
with ACBrETQ do
begin
if FileExists(imagem, true) then
CarregarImagem(imagem, 'Imagem');
if FileExists(imagem, true) then
begin
ImprimirImagem(1, 5, auxImage, 'Imagem');
end;
if Length(produto) <= 25 then
ImprimirTexto(or90, 2, 2, 1, 20, auxCol, produto, 40)
else
begin
ImprimirTexto(or90, 2, 2, 1, 20, auxCol,
LeftStr(rightStr(produto, Length(produto) - 30), 30), 40);
if Length(trim(produto)) > 22 then
begin
ImprimirTexto(or90, 2, 2, 1, 20, auxCol + 5,
LeftStr(produto, 30), 40);
end;
end;
ImprimirBarras(or90, IfThen(EAN13Valido(codigo), 'E30', '1'), '3', '2',
20, IfThen(Length(codigo) >= 9, AuxBarCode,
IfThen(Length(codigo) <= 8, AuxBarCode, AuxBarCode)), codigo,
18, becSIM);
ImprimirTexto(or90, 2, 2, 1, 20, AuxValor, trim(valor), 40);
end;
Não estou sabendo o porque estar dando esse erro. Antes funcionava corretamente. As verões que comentei anteriormente são so ACBr Trunk 2.