adisyon fişi çıkartma

[mrmarman]

Merhaba.

Aşağıdaki linkteki ve alıntıda şöyle bir ifade yer alıyor. (Quote başlığına tıklarsan alıntı yapılan yere gidebilirsin.)

PaperSize can be set to any of the following values: Letter, LetterSmall, Tabloid, Ledger, Legal, Statement, Executive, A3, A4, A4Small, A5, B4, B5, Folio, Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12, Env14, CSheet, DSheet, and ESheet.
These formats are all the default paper sizes defined in Windows. Selecting a paper size will automatically be reflected in the PaperLength and PaperWidth properties.
You can also set PaperSize to Custom and select any PaperLength and PaperWidth you want. Note that not all printers support all paper sizes. Also, many printers does not support custom paper size or can only have custom size within certain values.
If you select a paper size not supported by a printer QuickReport will automatically switch to the default paper size when preparing the report. The default paper size is selected in the printer driver setup.
This example shows how we can change PaperLength and PaperWidth properties with Custom parameter in the PaperSize property.

Burada özetle PaperSize belirtilen değerlerden birisi olabiliyor. Custom dediğinde de özel bir durum varmış. Bordo renkle boyadığım satırlarda dikkatini çekmek istediği nokta; her printer bütün kağıt boyutlarını desteklemez. Aynı zamanda her custom belirlediğin boyutları da desteklemez. Custom Size belirtirken belirli değerlere bağlı kalmak zorundaymışız. Eğer boyut yazıcı tarafından geri çevrilirse yani uyumlu değilse QuickReport kendiliğinden bunu default kağıt boyutuna dönüştürüyormuş.

Belki de belirttiğin değerler kullandığın yazıcının kabul ettiği boyut sınırlarında değil...

Bir örnek vermiş, PaperLength ve PaperSize özelliklerinin özel değerleri nasıl verdiğini örneklemiş.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Preview;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  QuickRep1.Page.Length:=StrToInt(Edit1.Text);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  QuickRep1.Page.Width:=StrToInt(Edit1.Text);
end;

Eğer qrprntr.pas dosyasını açarsan içinde kaynak kodunda bazı değişiklikler yaparak bunu esetebileceğin de bu linkte anlatılmış.

[AfterPost]

QuickReport yazıcı ayarlarına göre çıktı alır , yazıcının ilgili ayarlarından kayıt boyutunu QuickReport da ki gibi ayarlamanız gerekir