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

[(سیدشریفی)]

با سلام
من برای چاپ متن از کد زیر استفاده میکنم .

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(TextBox1.Text, New Drawing.Font(My_Font, My_Font_Style), Drawing.Brushes.Black, My_X, My_Y)
End Sub
میدانیم که مختصات My_X و My_Y محل چاپ این متن میباشد . این مختصات از چپ به راست میباشد .
در ویژوال بیسیک 6 میشد بوسیله کد زیر مختصات را به راست انتقال داد .

Printer.CurrentX = 11000 - Printer.TextWidth(Text1.Text)

حال در دات نت چگونه این کار را انجام دهم .
لطفا کمک کنید .
:)

[Naser54]

شما می‌توانید با استفاده از StringFormat به صورت زیر این کار بکنید:

Dim Myformat As StringFormat = New StringFormat
Myformat.FormatFlags = StringFormatFlags.DirectionRightToLeft
e.Graphics.DrawString(TextBox1.Text, New Drawing.Font(My_Font, My_Font_Style), Drawing.Brushes.Black, My_X, My_Y,MyFormat)

[(سیدشریفی)]

آقا ناصر خیلی ممنون از جوابتان مشکل من حل شد .
در ضمن ورود شما را به جمع دوستان خوش آمد میگویم .
امیدوارم در کارهایتان موفق باشید .
:flower:
:تشویق: