Insertar Barcode1D (Han-soft) en QReport

[ecfisa]

Hola Pablo.

Nunca usé el componente que mencionas, pero revisando el 1D Barcode VCL Components User Manual encontré que en la página 17 dice:

3.3 How to use the barcode components with QuickReport

Usage:
1. Put a TBarcode1D barcode component, such as the TBarcode1D_Code39, TBarcode1D_EAN13, and TBarcode1D_Code128 to your form.
Also, put a TDBBarcode1D component to the form and link the TBarcode1D component to the TDBBarcode1D component if the database support is required.
2. Put a TQRImage or TQRGzImage control to your report.
3. Set the Image property of the barcode component to the TQRImage or TQRGzImage control.

You can link single TQRImage or TQRGzImage control to multiple TBarcode1D components in order to display multiple barcode symbols in the TQRImage or TQRGzImage control (using the LeftMargin and TopMargin properties to specify the position for every barcode symbol).

Note:
If the barcode symbol cannot be read, please don't reduce/stretch width of the barcode symbol (set the Stretch property to false). You can change the barcode symbol width by changing its Module property value.

Also, please check whether the TQRImage or TQRGzImage control is large enough to accommodate entire
barcode symbol.

Luego, en la página 19 encontré este ejemplo para ReportBuilder que se me hace sugestivamente similar al uso que tendría con un TQRImage:

Código Delphi [-]
var
  BarcodeWidth, BarcodeHeight, SymbolWidth, SymbolHeight: Integer;
begin
  ......
  Barcode1D_Code391.Barcode := '1235678';
  Barcode1D_Code391.Module := 2;
  ......
  with ppReport1Image1.Picture.Bitmap do
  begin
    Barcode1D_Code391.DrawToSize(BarcodeWidth, BarcodeHeight, SymbolWidth, SymbolHeight, Canvas);
    Width := BarcodeWidth;
    Height := 100;
    Barcode1D_Code391.DrawTo(Canvas, 0, 0);
  end;

En principio, podrías intentar reemplazar el TppReport1Image1 por un TQRImage1 y ver si aplica...

Lamento no poder brindarte una ayuda comprobada, pero como te comenté antes no conozco el componente.

Saludos