Quick Report Preview biçini değiştirmek

[ardahan]

Arkadaşlar bir Quickreport dosyasını preview yaptığımızda defaultta fit to width geliyor. Ben preview yapmadan önce bunu %100 yapmak istiyorum. Previewi nasıl değiştiriririm?

IDE : Delphi 5

[alixyas]

dostum bende bu soruyu bi kaç gün önce forumda sormuştum ama hiç cvp alamadım. umarım bu sefer birileri yardımcı olmaya çalışır.

[mussimsek]

dostum bende bu soruyu bi kaç gün önce forumda sormuştum ama hiç cvp alamadım. umarım bu sefer birileri yardımcı olmaya çalışır.

Merhaba alixyas,

bu noktada bir bilgimiz olsaydı paylaşacağımızdan emin olabilirsin. Sen de sorduğun zaman araştırdım ama bunun kolay bir yolu yok maalesef varsa da ben bulamadım. Yardımcı olmaya çalışıyoruz yani.

Kolay gelsin.

[ardahan]

Bende bind edilmiş Quickreport olduğundan pas dosyasına müdahale edemyorum. Öyle bir imkan olsaydı TQrPreview classından bahsettiğim şeyi yapabilirim. Onun dışında mevcut hali üzerine nasıl yaparım onu bulamadım

[aXéNT]

Bende Quick Report kullanıyorum. Uyuz oldum o olaya baya bi aradım bişi bulamadım :S Eğer bilen varsa ve paylaşırsa sevinirim...

[Lost Soul]

google amcaya sordum bana bu cevabı verdi.

Kod: Tümünü seç

uses ......qrprntr, qrprev;
 
type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    procedure QuickRep1Preview(Sender: TObject);
  private
    FPrev: TQRStandardPreview;
  public
   procedure RunReport;
  end;
 
procedure TForm2.RunReport;
begin
  quickrep1.onPreview := quickrep1Preview;
  QuickRep1.Preview;
end;
 
procedure TForm2.QuickRep1Preview(Sender: TObject);
begin
  FPrev := TQRStandardPreview.CreatePreview(Self, TQRPrinter(Sender));
  FPrev.QRPreview.ZoomToFit;
  try
    FPrev.QRPreview.ZoomState := qrZoomToFit;
    FPrev.Show;
    FPrev.QRPreview.ZoomState := qrZoomToFit;
    FPrev.QRPreview.ZoomToFit;
 
  finally
    //FPrev.Free;
  end;
end;

Sanırım zoomstate değerleri ile ayarlanabiliyor. qrZoomToFit yerine başka değerler yazılarak.

Ref: Google
Ref:Experts Exchange