QReport

[akgun83]

Merhabalar,

Quick Report 'ta kendi önizleme formumu oluşturdum. Ancak raporu sayfa sayfa ileri veya geri götüremiyorum. Yardımcı olursanız sevinirim.

[delphici_55]

Merhabalar,

Quick Report 'ta kendi önizleme formumu oluşturdum. Ancak raporu sayfa sayfa ileri veya geri götüremiyorum. Yardımcı olursanız sevinirim.

raporu oluştururken sayfa başlığı ve diğer özeliklerini doğru ayarladığından emin ol.
sayfanın en üst kısmında diğer sayfaları göreceksin. ancak bir sayfalık bir rapor hazırladıysan bu imkanın olmayacaktır

[rsimsek]

http://www.geocities.com/simsek53/delphi/PREVIEW2.ZIP da daha önce QR nin kendi örneklerinden düzenlediğim bir önizleme unit i var. sen de aşağıdaki açıklamaya uygun kendine göre düzenleyip kullanabilirsin.

Bu önizlemeyi kullanmak için raporu çağıran programda
aşağıdaki değişiklikleri yap.

uses ' a QRPrntr i ekle.

Kod: Tümünü seç

  private
    { Private declarations }
    procedure QuickRep1Preview(Sender: TObject);
 
uses
  preview2, rapor1;  // preview2: önizleme prog. rapor1: rapor formun.
 
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
  Application.CreateForm(TfrmPreview, frmPreview);
  with frmPreview do
  begin
    QRPreview.QRPrinter := TQRPrinter(Sender);
    pQuickReport := fmRapor1.QuickRep1;
    Show;
  end;
end;


procedure TForm1.RaporClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  with TRapor.Create(Application) do
  begin
    QuickRep1.OnPreview := QuickRep1Preview;
    QuickRep1.Preview;
    Free;
  end;
end;

hepsi bu kadar. kolay gelsin.
[/code]