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