Ver Mensaje Individual
  #2  
Antiguo 22-07-2013
Panasys Panasys is offline
Miembro
 
Registrado: ago 2007
Posts: 88
Reputación: 17
Panasys Va por buen camino
Solucionado

Encontre un POST de Rufo donde lo solucionaba.

Asi que para quienes utilicen Zint BarCode, les comento que no tiene el componente para QuickReport, asi que lo solucione de la siguiente forma en el QuickReport.

Código Delphi [-]
procedure TFImprimirTarjetas.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
Var     b : TBitmap;
begin
 with FData.TTarjetas do
 begin
  b := TBitmap.Create;
  CodBarra.Barcode.Data:= FData.TTarjetas.FieldByName('ID').Value;
  CodBarra.barcode.GetBarcode(b);
  QRImage1.Picture.Bitmap := b;
 End;
end;

Con el ZintBarCode obtenemos el bitmap y de ahi lo asignamos al QRImage registro por registro.

Abrazos...
Responder Con Cita