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

Народ, подскажите почему у меня QuickRep печатает только один раз   Найти похожие ветки 

← →
dimonf   (2002-04-04 19:55) [0]

Суть проблемы: мне нужно сформировать отчет из данных StringGrid, вывести его на печать но перед этим посмотреть на экране.
Вот как я это делаю:
…
procedure TForm1.Button1Click(Sender: TObject); - формирую QRPreview
begin
QuickRep1.PreviewModeless;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if Row < (StringGrid1.RowCount) then begin
Label1.Caption := Edit1.Text;
Label2.Caption := IntToStr(Row);
Row:= Row + 1;
MoreData:=True;
end else MoreData:=False;
end;

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
QRPreview.QRPrinter := TQRPrinter(Sender);
QRPreview.Show;
end;

procedure TForm1.Button2Click(Sender: TObject); - формирую таблицу
var
I, J, K : Integer;
begin
K := 0;
with StringGrid1 do
for I := 0 to ColCount - 1 do
for J:= 0 to RowCount - 1 do
begin
K := K + 1;
Cells[I,J] := IntToStr(K);
end;
end;

procedure TForm1.Button3Click(Sender: TObject); - клавиша печати на принтер
begin
QuickRep1.Print;
end;
…

Но проблема в том, что печатается страница только один раз, и формируется в QRPreview тоже один раз.
В чем ошибка, почему такой результат.

---

← →
Anatoly Podgoretsky ©   (2002-04-04 20:18) [1]

Нигде невидно начального присвоения row

---

← →
dymka ©   (2002-04-04 20:28) [2]

Перед началом вызова Preview, установи Row := 0;

---

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

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



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