Печать Image несколько копий в одной строке, + текст в низу картинки...

[Oleg Romanchuk]

Добрый день, подскажите чем воспользоваться.

Нужно распечатать картинку 3 раза в одной строчке, а строчек столько сколько хватит листа формата A4. Так же внизу картинки нужно распечатать текст. У меня получилось с помощью Объекта TPrinter распечатать один раз в верхнем левом углу.

var
  x1,x2,y1,y2:integer;
  PointsX,PointsY:Double;

begin
  if PrintDialog1.Execute then
    begin
      Printer.BeginDoc;
      Printer.Canvas.Refresh;

      PointsX:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSX)/90;
      PointsY:=GetDeviceCaps(Printer.Canvas.Handle,LOGPIXELSY)/90;

      X1:=Round((10*PointsX)/2);
      Y1:=Round((15*PointsY)/2);

      X1:=Round((150*PointsX)/2);
      Y1:=Round((200*PointsY)/2);

      X2:=Round(X1+Image1.Picture.Bitmap.Width*PointsX);
      Y2:=Round(Y1+Image1.Picture.Bitmap.Height*PointsY);

      Printer.Canvas.CopyRect(Rect(x1,y1,x2,y2),Image1.Picture.Bitmap.Canvas,Rect(0,0,Image1.Picture.Bitmap.Width,Image1.Picture.Bitmap.Height));
      Printer.EndDoc;
    end;

Точно также получилось распечатать с помощью компанента QReport.

Подскажите куда копать дальше, пробовать с объекта TPrinter или с помощью QReport?
Или еще может можно еще как нибудь проще поступить?
Спасибо!