Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Народ, подскажите почему у меня 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
14-57889          heruvim4ik            2002-03-09 17:10  2002.04.18  
Посоветуйте самоучитель (Delphi 5)


3-57649           Дмитрий_Ч             2002-03-28 13:14  2002.04.18  
Ну скажмите наконец!!!!


14-57862          Swinger               2002-03-06 23:24  2002.04.18  
Игры


1-57750           Абрек                 2002-03-31 15:44  2002.04.18  
Помогите! Не знаю как исправить оплошность... (+)


1-57738           ymin                  2002-04-05 11:56  2002.04.18  
Как в 1-й форме ввести строку, потом нажать на кнопку и во второй