كيف يمكن طباعة محتوى MEMO

العنصر printDialog لا يقوم بعملية الطباعة وانما يمكن المستخدم من التحكم بخواص عملية الطباعة

اما عملية الطباعة نفسها فيمكن عملها بواسطة الغرض Tprinter او بامكانك الاطلاع على مكونات الصفحة ٌ Rave التى تعطيك تحكم تام

ملاحظة هذا اذا كنت تعملين بالاصدار السابع اما اذا كنت تعملين بالاصدار السادس فهناك لصفحة َQuickReport على ما اظن تفي بالغرض

سوف افترض انك تعملين على الاصدار السابع

والان نحتاج فقط الى ثلاثة مكونات

Button

memo1

RvSystem1 من صفحة Rave

 procedure TForm1.Button2Click(Sender: TObject);
  begin
   RvProject1.Execute;
  end;

في الحدث onprint من المكون RvSystem1 اكتب ما يلي

 procedure TForm1.RvSystem1Print(Sender: TObject);
var i:integer;
    Ybegin:double;
begin
  with Sender as TbaseReport  do
  begin
    SetFont('Arial CYR',18);
    LineNum:=5;
    for i:=0 to Memo2.Lines.Count do
     begin
      PrintJustify(Memo2.Lines,0.5,pjleft,0,0);
      NewLine;
      if YPos>SectionBottom then NewPage;
     end;
   {  SetColumns(4,0.5);
     Ybegin:=YPos;
     for i:=1  to 40 do
     begin
      Println(IntToStr(i));
      if (i mod 10)=0 then
      begin
       NewColumn;
       YPos:=Ybegin;

      end;

     end; }

  end;

شكرا كتير يا أخ romanof على المساعدة

إذا كان بامكانك استخدامrichedit بدل من memo فالطباعة ب richedit سهلة جدا , ورائعة :

RichEdit1.Print('hello');

hello هي فقط عنوان خدمة الطباعة , وسيتم طباعة محتويات الrichedit بتنسيقاتها المختلفة

عفوا mahmola

انا برضه معاك يا أخ عروة لكن ايش اسوي هذا كان الطلب

شكرا لجهودك و متابعتك يا أخ romanof

و الحق علي أنا قلت بدي طباعة MEMO شكراً كتير مرة تاني

وشكرا الك يا أخ ORWA دليتني على شي كتير سهل و حلو