Форум: "Основная";
Поиск по всему сайту: 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.043 c
1-57778           Zool                  2002-04-05 16:34  2002.04.18  
_FileTime


1-57688           Durak                 2002-04-07 19:22  2002.04.18  
Где достать инфу по флэшу ???


1-57796           Anton+                2002-03-29 12:50  2002.04.18  
Прячем файлы.


14-57874          Kozhanov              2002-03-12 13:47  2002.04.18  
Поддержка программой нескольких языков...


3-57632           AndDem                2002-03-28 13:18  2002.04.18  
Date в Oracle