var zeeb : tRect; begin zeeb.Top := 0; zeeb.Left := 0; zeeb.Bottom := Form1.qri_barcode.Height; zeeb.Right := Form1.qri_barcode.width; Form1.bc_test.PaintToCanvas(Form1.qri_barcode.Canvas, zeeb); Form1.QuickRep1.Preview; where qri_barcode is an image & .bc_test is a barcde component