نحوه ارسال یونیکد به پرینتر؟

[Mahdiseif]

سلام علیکم
در برنامه ای یک سری اطلاعات بصورت یونیکد نمایش داده میشود. و نمایش آن هم در نسخه های مختلف ویندوز بدون مشکل است(چند دفعه امتحان کردم).از فونت ایران سیستم و کامپوننت ElAdvancedMemo1 استفاده کردم.
ولی در پرینت مشکل وجود دارد. مستدعی است راهنمایی فرمایید:
1- برای ارسال یونیکد به پرینتر چه باید کرد؟
2- از کامپوننت Memo چگونه میشود پرینت گرفت؟

با کمال سپاس

[phantasm]

سلام
برای سوال دومت تو help دلفی چندتا مثال هست :

To run this example successfully, add Printers to your uses clause.



procedure TForm1.Button1Click(Sender: TObject);

var

  r: TRect;

  i: Integer;

begin

  with Printer do

    begin

      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));

      BeginDoc;

      Canvas.Brush.Style := bsClear;

      for i := 0 to Memo1.Lines.Count do

       Canvas.TextOut(200,200 + (i *

                   Canvas.TextHeight(Memo1.Lines.Strings[i&#9  3;)),

                   Memo1.Lines.Strings[i]);



      Canvas.Brush.Color := clBlack;

      Canvas.FrameRect(r);

      EndDoc;

    end;

end;

[said ali]

با سلام
همه اطلاعات مثل Preview روی کنواس یه فرم بریز و بعد هم از کنواس پرینت بگیر فکر نکم مشکلی ایجاد بشه چون به صورت یه عکس پرینت میگیری.