Gracias por tu aportación.... pero a pesar de tener el tamaño de la fuente al máximo, el valor de la propiedad PixelsPerInch seguía siendo 96, no obstante, he cogido tu idea y activando un flag cambio el zoom y el height del componente. Pongo el fuente:
Código Delphi
[-]
if frxIdentificativa.FindComponent('BarCode1') <> nil then begin
TfrxBarCodeView(frxIdentificativa.FindComponent('BarCode1')).Text := Format('%3.3s%1.1d%9.9d%3.3s', [vEmpresa, vModificador, vNumero, vTipo]);
if l_ZoomActivo then begin TfrxBarCodeView(frxIdentificativa.FindComponent('BarCode1')).Zoom := 1.5;
TfrxBarCodeView(frxIdentificativa.FindComponent('BarCode1')).Height := 120;
end;
end;
frxIdentificativa.PrintOptions.Printer := G_IMPRESORA_IDENTIFIC;
frxIdentificativa.PrintOptions.Copies := 1;
frxIdentificativa.PrintOptions.ShowDialog := False;
frxIdentificativa.PrepareReport(True);
frxIdentificativa.Print;