ZReport geniş yazdıramama

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
veliadiguzel
Üye
Mesajlar: 197
Kayıt: 09 Tem 2003 02:11
Konum: Gebze/Kocaeli
İletişim:

ZReport geniş yazdıramama

Mesaj gönderen veliadiguzel »

Selamun Aleyküm

ZReport u kurdum delphi 7 geniş yazdırmayı beceremedim ha birde türkçe lerde sorun var oda şöyöle forumda bulduğum aşağıdaki kodu kullandım

function Kontrol(Deg:String):String;
var A:Integer;
begin
FOR a := 1 TO Length(Deg) do
if copy(Deg, A, 1) = 'İ' Then
Deg[A]:= '˜'
else if copy(Deg, A, 1) = 'ı' Then
Deg[A]:= '�'
else if copy(Deg, A, 1) = 'Ü' Then
Deg[A]:= 'š'
else if copy(Deg, A, 1) = 'Ş' Then
Deg[A]:= 'ž'
else if copy(Deg, A, 1) = 'Ç' Then
Deg[A]:= '€'
else if copy(Deg, A,1) = 'Ö' Then
Deg[A]:= '™'
else if copy(Deg, A, 1) = 'ö' Then
Deg[A]:= '”'
else if copy(Deg, A, 1) = 'ç' Then
Deg[A]:= '‡'
else if copy(Deg, A, 1) = 'Ğ' Then
Deg[A]:= '¦'
else if copy(Deg, A, 1) = 'ğ' Then
Deg[A]:= '§'
else if copy(Deg, A, 1) = 'ü' Then
Deg[A]:= '�'
else if copy(Deg, A, 1) = 'ş' Then
Deg[A]:= 'Ÿ'
else if copy(Deg, A, 1) = '�' Then
Deg[A]:= '�';
Result:=Deg;
end;


ama burada da ç de sorun yok ama "ş"" i" de sorunlu belki bunu aşa bilirim ama geniş ve/veya dar yazdırma beceremedim herzmanki gibi bide acele ki sormayın :)

AEO
Kullanıcı avatarı
sadettinpolat
Moderator
Mesajlar: 2131
Kayıt: 07 Ara 2003 02:51
Konum: Ankara
İletişim:

Mesaj gönderen sadettinpolat »

geniş yazdırmak olayından kastınız tam olarak nedir?
eğer normal kağıda daha fazla sayıda karakter sığdırmaksa condensed özelliğini true yapabilirsiniz.
"Sevmek, ne zaman vazgececegini bilmektir." dedi, bana.

---
http://sadettinpolat.blogspot.com/
Kullanıcı avatarı
veliadiguzel
Üye
Mesajlar: 197
Kayıt: 09 Tem 2003 02:11
Konum: Gebze/Kocaeli
İletişim:

Mesaj gönderen veliadiguzel »

condensed olayının tam tersi daha az sayıda yazdırmak normal olarak yazıcıya #14 yollayınca olan işlem zreportta nasıl oluyor diye sormuştum.
Kullanıcı avatarı
sadettinpolat
Moderator
Mesajlar: 2131
Kayıt: 07 Ara 2003 02:51
Konum: Ankara
İletişim:

Mesaj gönderen sadettinpolat »

#14 ün tam olarak ne iş yaptığını bilemiyorum ama zreportun pagestart özelliğine #14 yazarsanız yazıcıya bu komut gidecektir.
"Sevmek, ne zaman vazgececegini bilmektir." dedi, bana.

---
http://sadettinpolat.blogspot.com/
Cevapla