Скачать: CL | DM;

TQRImage в run-time   Найти похожие ветки 

← →
opolo2000 ©   (2009-12-07 21:04) [0]

Есть 2 небольших рисунка (размер примерно 100*100): C:\1.bmp, C:\2.bmp.
Нужно в run-time вывести на печать на первой странице первый рисунок, на второй – второй. Пробую так:
procedure TForm1.Button1Click(Sender: TObject);
const f1Name = "C:\1.bmp";
     f2Name = "C:\2.bmp";
var qrb1, qrb2: TQRBand;
   QRImage1, QRImage2: TQRImage;
begin
    with myQuickRepForm.myQuickRep do begin
      qrb1:=TQRBand.Create(self);
      qrb2:=TQRBand.Create(self);
      qrb1.Parent:=myQuickRepForm.myQuickRep;
      qrb2.Parent:=myQuickRepForm.myQuickRep;
      QRImage1:=TQRImage.Create(self);
      QRImage2:=TQRImage.Create(self);
      QRImage1.Parent:=qrb1;
      QRImage2.Parent:=qrb2;
      try QRImage1.Picture.LoadFromFile(f1Name);
          QRImage2.Picture.LoadFromFile(f2Name);
      finally
      end;
      with QRImage1 do begin
        Top:=10;
        Left:=10;
      end;
      with QRImage2 do begin
        Top:=10;
        Left:=10;
      end;
      Prepare;
      PreView;
      QRImage1.Free;
      QRImage2.Free;
      qrb1.Free;
      qrb2.Free;
    end;
end;
Как вставить "разрыв страницы" между двумя рисунками? Может есть более простой способ?

---

← →
KilkennyCat ©   (2009-12-07 22:43) [1]

Про процедура что-нить известно?

---

← →
oldman ©   (2009-12-08 09:08) [2]

Картинка1.Печать;
Картинка2.Печать;

Имхо, напечатается на 2-х листах

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c