چاپ از راست به چپ

[roham]

با سلام خدمت همه دوستان.
می خواهم برای چاپ پرینتر از راست به چپ شروع به چاپ کنه اما موفق نمی شم واز کد زیر استفاده می کنم

procedure TFORM1.PRN(STRINGS: TSTRINGS);
VAR P:TEXTFILE;
I:WORD;
begin
ASSIGNPRN(P);
TRY
REWRITE(P);
FOR I:=0 TO STRINGS.Count-1 DO
WRITELN(P,STRINGS.STRINGS[I]);
FINALLY
CLOSEFILE(P);
END;
END;
procedure TForm1.Button1Click(Sender: TObject);
begin
PRN(MEMO1.Lines);
end;
و BIDIMODE فرم و MEMO را روی bdRightToLeft تنظیم کرده ام اما باز هم نشد لطفا کمکم کنید .
با تشکر :?

[مهدی کرامتی]

شما دقیقا میخوای چی رو چاپ کنی؟ چرا از یک ابزار Report که RightToLeft را ساپورت کنه (مثل Fast-Report) استفاده نمیکنی؟

[roham]

من می خواهم محتویات یک فایل که در یک memo نمایش داده می شود را چاپ کنم این فایل توسط پاسکال تحت داس ایجاد شده ودارای چند رکورد است و برای چاپ آن من نمی توانم از امکانات بانک اطلا تی استفاده کنم اگر این امکان هست که این رکوردها را از این طریق چاپ کنم از راهنمایتون ممنون می شوم. :oops:

[Hidarneh]

خب فرقی نمی کنه . FastReport رو نمی دونم ولی ReportBuilder این امکان رو بهت می ده که از یه فایل text اطلاعات رو بخونی و چاپ کنی . ( دقیقا اون چیزی که می خوای ) و هم امکان معرفی کردن کاراکتر جدا کننده رو داره و هم اینکه جاشون فیکس باشه و ...

[roham]

از همه ممنونم :wink: