Ver Mensaje Individual
  #10  
Antiguo 21-03-2019
afxe afxe is offline
Miembro
 
Registrado: jul 2004
Ubicación: Malaga-España
Posts: 273
Reputación: 20
afxe Va por buen camino
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 Application.MainForm.PixelsPerInch > 96 then begin (no ha funcionado)
    if l_ZoomActivo then begin  // Por la resolución del tipo de letra.
      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;
__________________
Amar al mundo apasionadamente.
Responder Con Cita