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




Вниз

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


dimonf   (2002-04-03 18:41) [0]

У меня имеется три формы 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) [1]

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




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




Наверх





Память: 0.71 MB
Время: 0.025 c
1-46356           андрей Татуков        2002-04-04 10:46  2002.04.15  
RichEdit.Print зависает (бесконечный Спулинг)


1-46355           michael_B             2002-04-03 19:40  2002.04.15  
помогите начинающему TComboBox.Items


1-46354           KarlovAF              2002-04-01 14:29  2002.04.15  
Оператор IS...


1-46442           Glonia Zbanov         2002-04-03 10:04  2002.04.15  
Application.MessageBox


1-46334           Mikel Fryg            2002-04-02 22:25  2002.04.15  
Как сделать форму активной?