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:
Cita:
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
