Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

QReport

markers © (2004-12-28 18:06:00)
Люди подскажите как сделать свой привьюк сабжу?
Спасио!

Amoeba (2004-12-29 11:51:00) [1]
Ищи статью с примером на http:\\www.delphikingdom.com

pol (2004-12-29 11:48:00) [2]
Надеюсь вырезал правильно...

unit rptReport;

interface

uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, Dialogs;

type
TReport = class(TQuickRep)
.....
procedure QuickRepPreview(Sender: TObject);
private

public
end;

procedure PrintExecute(...);

var
Report: TReport;

implementation

uses QRPrntr, frmPreview;

{$R *.DFM}

procedure PrintExecute(...);
begin
with TReport.Create(nil) do begin
PreviewForm := TPreviewForm.Create(Self);
with PreviewForm do begin
Show;
Preview;
if ModalResult = mrOK then
with PrintDialog do begin
MinPage:= 1;
MaxPage:= self.PageNumber;
FromPage:= MinPage;
ToPage:= MaxPage;
Result:= Execute;
if Result then begin
Self.PrinterSettings.Copies:= Copies;
if PrintRange = prPageNums then begin
Self.PrinterSettings.FirstPage:= FromPage;
Self.PrinterSettings.LastPage:= ToPage;
self.Print;
end;
end;
Free;
end;
PreviewForm := nil;
Free;
end;
end;

Плохиш (2004-12-29 11:44:00) [3]
Что "где вставить"? В коде вестимо.
... repRG := TrepRG.Create(self); repRG.PreviewModal; repRG.Free; ...

PS. Что-то скучно становиться :-(

stud (2004-12-29 11:44:00) [4]
http://delphi.olympus.ru/dk/treasury/qr_preview.htm

markers (2004-12-29 11:40:00) [5]
Где ставить? Пораставял, вылетает при обращении

Плохиш (2004-12-29 11:28:00) [6]
Описание репорта:
TrepRG = class(TQuickRep)
Вызов:
repRG.PreviewModal;

markers (2004-12-29 11:25:00) [7]
В хелпе написано, что нужно в онпривью отчёта вставить

markers (2004-12-29 11:24:00) [8]
Я тут в хелпе очень скудном нашёл QRPreview1.QRPrinter := TQRPrinter(Sender);

Вставил, тишина

markers (2004-12-29 11:23:00) [9]
Не кажет моим

Плохиш (2004-12-29 11:12:00) [10]
Preview/PreviewModal

markers (2004-12-29 11:06:00) [11]
У меня отчёт есть, всё работает хорошо, но понадобилось сделать свой отчётник (По очень веским причинам) Про TQRPreview я знаю, добавля его, но как его привяать, чтоб он оторажал отчёт? Больше мне ничего не нужно. Я спрашиваю потому-что нет ни хепа ни док.... Еслиб ни эти "Веские причины" я бы не абивал себе этим голову и вам тоже.... Мне не-надо что мол сдеай так и так, просто хотяб скажите куда рыть? Я уже всё испробовал не получается..... И вооще-то я вас не просил ни вас ни кого-то другого, что мол сделайте мне, а я только готовенькое переделаю и всё, мне нуна быа просто подсказка, а он насколько я знаю бесплатен на этом форуме, или я отстал от жизни? За первый ответ спасибо, но это не то.... И кстати мне за мою прогу тое никто не заплатит, но она "РЕАЛЬНО" нужна...... Ивините, если кого обидел....

Johnmen (2004-12-29 10:02:00) [12]
Чего аукаешь?
Читать умеешь? Так читай, вникай... Никто за тебя это делать бесплатно не будет.

markers (2004-12-29 09:56:00) [13]
Ау!

markers (2004-12-28 18:52:00) [14]
а как его вызывать, чтоб там всё было все страницы отображались и т.д.

Johnmen (2004-12-28 18:17:00) [15]
TForm + TQRPreview + кнопки и т.д

Наверх

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