resolvi o problema..
O padrão ZPLII tem um comando específico pra ajustar a altura e a largura das barras, que deve ser emitido antes de imprimir o código de barras ( ^BY )
Então , na unit ACBrETQZplII criei um método ComandoTamanhoBarras( aBarraFina, aBarraLarga , aAlturaBarra:Integer ) que gera esse comando
( parâmetro aBarraLarga não tem funcionalidade, pois o padrão zplII calcula a barra larga proporcionalmente ao tamanho da barra fina )
function TACBrETQZplII.ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarra:Integer): String;
begin
result := '^BY' + intToStr( aBarraFina )+ ',,'+ intToStr( aAlturaBarra );
end;
E o método ComandoImprimirBarras ficou assim:
Result := ComandoCoordenadas(aVertical, aHorizontal) +
ComandoTamanhoBarras(aBarraFina, aBarraLarga , aAlturaBarras ) +
ComandoBarras(aTipoBarras, aOrientacao, aAlturaBarras, aExibeCodigo) +
ComandoCampo(aTexto);
Dessa forma funcionou perfeitamente
Segue em anexo a unit alterada, porém ela contém os métodos de gravação RFID que implementei em outra thread...
Mas implementando as alterações acima funciona corretamente.
ACBrETQZplII.pas