yazdırma olayı

[zengin]

merhaba arkadaşlar programımda yazıcıdan cıktı alacagım örnegin

procedure TMKART.SpeedButton8Click(Sender: TObject);
begin
Query1.sql.clear;
Query1.sql.add('select *from Ykart.db');
Query1.sql.add('where plaka like '''+edit2.text+'%''AND KALAN>0');
Query1.open;
MKARTYAZDIR.QuickRep1.Preview;
end;
kullandıgım yazdırma kodlarım bu şekilde

A4 kagıdına yalnızca 50 satır degilde 40 satır alsın istiyorum

50 satır olur ise yazıların ve satırların eksik yazıyor bana bu konuda yardımcı olabilirmisiniz lütfen saygılarımla kolay gelsin

[feinpus]

QuickRep 'in Object inspector penceresinden, page ayarını değiştirim sayfa boyunu küçültürsen 50 satır yerine 40 satır yazdırabilirsin...

[aslangeri]

S.A.
Quickrep in top ve bottom ları ile
detail bandın height i ile oynayarak satır sayısını ayarlayabilirsin.
Bir başka yolda detail bandın after (yada before) print inde satır sayısını kontrol ettir. 40 olduysa

Kod: Tümünü seç

quickrep1.newcolumn;

ile yeni bir sayfaya geçebilirsin.
Kolay gelsin.