table-quickreport-memo

[akipek]

mssql7-delphi6 kullanıyorum istediğim şu
bir table'da bir memo alanı var içinde 5-6 sayfalık döküman var.
ben bunu quickrep ile yazdır dediğimde memo içindeki bilgi kaç sayfa ise o kadar sayfa yazdırmak istiyorum bunun bir yolu varmı?

[ender_arslanturk]

Merhaba,

Acaba şöyle de yapılabilirmi ? ama bunun için qrmemo kullanmak lazım....

öncelik ile normal olarak gizli bir memo koy. ve

memo1.lines.text := table1memoalan.Value; şeklinde vt den gerekli bilgileri al. ondan sonra normal qrmemo nun kaç satır altığını tasarım anında bak mesela 100 satır diyelim.

Sonra şu şekilde ,

Kod: Tümünü seç

var
      tekrar,i:integer;
begin
      tekrar:=0;
      for i:=0 to memo1.lines.Count-1 do
      begin
              if tekrar=100 then 
              begin 
                       qreport1.print; 
                       qrmemo1.clear; 
                       tekrar:=0; 
              end
              else
              begin
                       qrmemo1.lines.add(memo1.lines.strings[i]);
                       tekrar:=tekrar+1;
              end;
      end;
end;

Kodu Denemedim, bu ara cmanız mubarek olsun ....

Saygılarımla,