Çalışma zamanında rapor hazırlama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
MakPRO
Üye
Mesajlar: 251
Kayıt: 31 Eki 2003 05:21
Konum: Antalya
İletişim:

Çalışma zamanında rapor hazırlama

Mesaj gönderen MakPRO »

Mrb Çalışma zamanında raporların ölçülerini değiştirmek istiyorum.

aşağıdaki atamayı nasıl yapabileceğimi bilmiyorum . bir örnek verebilirmisiniz.

QuickRep1.Page.Orientation:=poPortrait;

yardımlarınız için teşekkür ederim
Kullanıcı avatarı
MicroChip
Kıdemli Üye
Mesajlar: 1119
Kayıt: 02 Ağu 2003 01:02
Konum: İstanbul
İletişim:

Mesaj gönderen MicroChip »

Ben Runtime da denemedim ama;

Kod: Tümünü seç

    if formana1.rabuton1.Checked then
        formyaz1.rapor01.Page.Orientation:=poLandscape
    else
        formyaz1.rapor01.page.orientation:=poPortrait;
gibi kod kullanarak bunu form create edilirken yapıyorum. Ve de oluyor. sanırım yapman gereken qraporu silip tekrar create ettirmek.


saygılar...
Kafkas Kartalı Kabarday
Sitesi!= http://www.ahmetceylan.com
Resim
Kullanıcı avatarı
MakPRO
Üye
Mesajlar: 251
Kayıt: 31 Eki 2003 05:21
Konum: Antalya
İletişim:

Mesaj gönderen MakPRO »

ilginç bende hata mesajı veriyor. burda ilk başta qreport1 diye bir form var . onun üzerinde değişiklikleri komutla yapmaya çalışıyorum. fakat burda farklı bir şey yapılması gerekiyor ama ne çözemedim. örnek de bulamadım işin açıkcası
Kullanıcı avatarı
bobasturk
Kıdemli Üye
Mesajlar: 1387
Kayıt: 20 May 2004 08:39
Konum: Düzce

Mesaj gönderen bobasturk »

merhaba,

sayfa yapısı yani yatay dikey olarak düzenlemeyi yapmadım ama üzerindeki text ve labellerin yerlerini değiştirme işini ayar tablosu oluşturarak oradan almasını sağladım (top, left mesafelerini). birde microchip ustanın yaptığı gibi checkbox lar ile rapor üzerinde görünmesi veya görünmemesi gereken labelleri belirliyorum.

Kod: Tümünü seç

formadfisionmtb.QRDBText17.Left:=dm1.adfisionayaribdataset.fieldbyname('CERAIMNO_LEFT').AsInteger;
  formadfisionmtb.QRDBText17.top:=dm1.adfisionayaribdataset.fieldbyname('CERAIMNO_TOP').AsInteger;

formadfisionmtb.quickrep1.preview;

Kod: Tümünü seç


if checkbox1.checked=true then
begin
  formadfisionmtb.qrlabel1.caption:='falan olsun';
  formadfisionmtb.quickrep1.preview;
end;
gibi
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.

Resim
Kullanıcı avatarı
MakPRO
Üye
Mesajlar: 251
Kayıt: 31 Eki 2003 05:21
Konum: Antalya
İletişim:

Mesaj gönderen MakPRO »

Uses satırına Printers ekleyince atama yapabiliyorsunuz arkadaşlar.

Hamdullah arkadaşıma msn de ki yardımlarından dolayı teşekkür ederim :)
Cevapla