Delphi Forum

RxDBLookUpComboBox İstediğini tam olarak yapar. Farklı DB'den Kayıt Nosunu getirerek senin Table'e yazar fakat görüntüde o kayıt no'na ait isim gösterebilir. DataField > Kayıt alanı (*) DataSource > Kayıt yapılacak Datasource LookupDisplay > Ekrana Gösterilecek alan LookupField > Listelemenin yapıla...

Kusura bakma fonksiyonu unuttum.
CEVIR (XX)
Delphiden LPT1'e direk türkçe karakterleri gönderdiğinde hatalı çıkıyor. Göndermeden önce XX içerisinde bulunan Tr karakterleri doğru karakterlerle değiştiriyor.

AssignFile(PRN,'LPT1:'); Rewrite(PRN); WriteLn(PRN,' '); WriteLn(PRN,CEVIR(chr(27)+'w1'+chr(14)+Format(' %-4.4s',[FIS_YIL.Text])+chr(27)+'w0'+CHR(20))); WriteLn(PRN,CEVIR(chr(27)+'w1'+Format(' %-35.35s',[FIS_ADI.Text+' '+FIS_SOYADI.Text])+chr(27)+'w0')); WriteLn(PRN,' '); CloseFile(PRN);

1 yıl önceydi. Bende çok aradım fakat çalıştıramadım. Özel komponentler kullanmalısın veya yazdırma anında (Fastreport, Report Builder) yapabilirsin.

Hakkaten raporu neyle hazırlıyorsun? Ben direk gönderdiğini zannettim.

Bende 3321 nin kitabı yok ama 521 de şöyle (IBM mod);

Readln(F, *);

chr(27)+chr(67)+chr(n)
n; Sayfadaki satır sayısı

chr(27)+chr(67)+chr(0)+chr(n)
n; Sayfa inç boyu

chr(27)+chr(52);
yazıcının bulunduğu satırı sayfa başı olarak değiştirir (TOF)

Kullandığın yazıcıya göre değişir. Barkod yazıcı veya laser'de çok fazla problemin olmaz. Fakat dot matrix veya Deskjet (özellikle ayarsız ise) küçük modda okumada problem çıkarır.