[YaroslavSh]

Сообщение от lmikle

Тогда играй с кистью.
На том же OnBeforePrint попробуй шейпу указать свою кисть. Может хоть так сработает.

Доигрался, но не с кистью, помоему тоже ничего. Может кому понадобиться. Идея не моя, но искал долго .
var
test: TBitmap;
X, Y, kX, kY: Integer;

test:= TBitmap.Create;
test.LoadFromFile('test.bmp');
test.Transparent:=true;
test.TransparentColor:=test.Canvas.Pixels[0, 3];
kX := Width DIV test.Width;
kY := Height DIV test.Height;
FOR X := 0 TO kX DO
FOR Y := 0 TO kY DO
QRImage1.Canvas.Draw(X*test.Width, Y*test.Height, test);