| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

dimonf ©   (2002-04-04 19:55:00) 

Суть проблемы: мне нужно сформировать отчет из данных 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 тоже один раз.
В чем ошибка, почему такой результат.

---

dymka   (2002-04-04 20:28:00) [1]

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

---

Anatoly Podgoretsky   (2002-04-04 20:18:00) [2]

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

---

Наверх