با سلام خدمت همه دوستان.
می خواهم برای چاپ پرینتر از راست به چپ شروع به چاپ کنه اما موفق نمی شم واز کد زیر استفاده می کنم
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 تنظیم کرده ام اما باز هم نشد لطفا کمکم کنید .
با تشکر :?
پاسخ با نقل قول
