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