Ver Mensaje Individual
  #5  
Antiguo 27-04-2007
hernandov hernandov is offline
Registrado
 
Registrado: abr 2007
Posts: 7
Reputación: 0
hernandov Va por buen camino
Mas sobre el codigo de barras

Hola,
Ya logre trabajar con BarcodeX, como le decia es un componente ActiveX y funciona muy bien, lo logre imprimir con QReport, yo creo que le puede servir, aca le mando el codigo con el que lo logre imprimir en QReport, espero le sirva....saludos

var bmp:TBitmap;
begin
BarcodeX1.Caption := '(415)7709998002135(8020)970031(3900)00263245';
bmp := TBitmap.Create;
bmp.Width := BarcodeX1.Width;
bmp.Height := BarcodeX1.Height;
BarcodeX1.PaintTo(bmp.canvas.handle,0,0);
Form2.QRImage1.Picture.Assign(bmp);
bmp.free;
Form2.QuickRep1.Preview;
Responder Con Cita