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

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

Народ, помогите разобраться с QRPreview.

dimonf ©   (2002-04-03 18:41:00) 

У меня имеется три формы MainForm, MDIForm, QRForm.
Мне нужно в MDI окне сделать Preview QuickReporta который лижит на QRForm.
Сам же QRPreview находится в MDIForm.
Вот что я делаю:
MDIForm.pas
…
var QReport : TQRForm;
…
QReport := TQRForm.Create(Self);
with QRPreview1 do
begin
Align := alClient;
TabOrder := 0;
ZoomToFit;
end;
QRForm.Prev.PreviewModeless;
QRPreview1.Visible := True;
…

QRForm.pas
…
procedure TQRForm.QReport1Preview(Sender: TObject);
begin
with Application.MainForm.ActiveMDIChild as TMDIForm do
QRPreview1.QRPrinter := TQRPrinter(Sender);
end;
…

MainForm.pas
…
IF PrintDialog1.Execute then
begin
with Application.MainForm.ActiveMDIChild as TMDIForm do
QReport .QReport1.Print;
end;
…
Фишка в том, что сам Preview работает нормально.
Но при попытке распечатать отчет на принтере происходит глюк :(
Один раз печатается нормально, а при повторной попытке не хочет.
Приходиться закрывать MDI окно. При открытии MDI окна снова печатается, а потом нет.
В чем проблема?

---

dimonf   (2002-04-03 20:57:00) [1]

Народ, нет разве мыслей??? 8(

---

Наверх