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

[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])),
Memo1.Lines.Strings[i]);

Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
end;

[said ali]

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