QReport

← →
markers © (2004-12-28 18:06) [0]

Люди подскажите как сделать свой привьюк сабжу?
Спасио!

← →
Johnmen © (2004-12-28 18:17) [1]

TForm + TQRPreview + кнопки и т.д

← →
markers © (2004-12-28 18:52) [2]

а как его вызывать, чтоб там всё было все страницы отображались и т.д.

← →
markers © (2004-12-29 09:56) [3]

Ау!

← →
Johnmen © (2004-12-29 10:02) [4]

Чего аукаешь?
Читать умеешь? Так читай, вникай... Никто за тебя это делать бесплатно не будет.

← →
markers © (2004-12-29 11:06) [5]

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

← →
Плохиш © (2004-12-29 11:12) [6]

Preview/PreviewModal

← →
markers © (2004-12-29 11:23) [7]

Не кажет моим

← →
markers © (2004-12-29 11:24) [8]

Я тут в хелпе очень скудном нашёл QRPreview1.QRPrinter := TQRPrinter(Sender);

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

← →
markers © (2004-12-29 11:25) [9]

В хелпе написано, что нужно в онпривью отчёта вставить

← →
Плохиш © (2004-12-29 11:28) [10]

Описание репорта:
TrepRG = class(TQuickRep)
Вызов:
repRG.PreviewModal;

Где ставить? Пораставял, вылетает при обращении

Что "где вставить"? В коде вестимо.
... repRG := TrepRG.Create(self); repRG.PreviewModal; repRG.Free; ...

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

http://delphi.olympus.ru/dk/treasury/qr_preview.htm

← →
pol (2004-12-29 11:48) [14]

Надеюсь вырезал правильно...

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;

Ищи статью с примером на http:\\www.delphikingdom.com

QReport Найти похожие ветки