مشکل با چاپ متن در TextBox

سلام دوستان من با VisualBasic 2008 کار میکنم

وقتی میخوام محتوای متنی TextBox رو که‌ (Right to Left ) هستش چاپ کنم رو صفحه‌ کاغذ (Left to Right) میشه‌ لطفا یکی کمکم کنه‌ ؟

My TextBox1.Text Properties

Right to Left : Yes
Text Align : Right

کد:

---


Imports System.Drawing.Printing
-----------------------------------------------
Public Class DataForm
 

  Private Sub printText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
      ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, FontStyle.Regular), Brushes.Black, 120, 120)
      ev.HasMorePages = False
  End Sub
.
.
.
.
.

Private Sub BTNPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPrint.Click
      Try
          Dim prindoc As New PrintDocument
          AddHandler prindoc.PrintPage, AddressOf Me.printText
          prindoc.Print()
      Catch ex As Exception
          MessageBox.Show("???????", ex.ToString())
      End Try
  End Sub

---

یکی از دوستان جواب بده‌ ممنون میشم

ناسلامتی همه‌ واردن :40:

سلام.

کد:

---

    Private Sub printText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim MainFormat As New StringFormat(StringFormatFlags.DirectionRightToLeft)
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, FontStyle.Regular), Brushes.Black, 120, 120, MainFormat)
        ev.HasMorePages = False
    End Sub

---

موفق باشید.

نقل قول:

---

نوشته شده توسط hamishebahar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام.

کد:

---

    Private Sub printText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim MainFormat As New StringFormat(StringFormatFlags.DirectionRightToLeft)
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, FontStyle.Regular), Brushes.Black, 120, 120, MainFormat)
        ev.HasMorePages = False
    End Sub

---

موفق باشید.

---

دوست گرامی hamishebahar دستت درد نکنه‌ اما هنوز مشکل داره‌

موقه‌ چاپ کردن سمت چپ کاغذ درمیاد

من متوجه نشدم میشه یه پرینت بگیرین که چطوریه؟
یعنی چی سمت چپ کاغد میاد؟
یعنی شما الان دارین کاغذ پرینت میکنید؟:18:

من احساس میکنم یه راهی باید برای این کار باشه.حتماً هست.ولی چون من بلد نبود یه تابع برات نوشتم که کارتو را میندازه.

کد:

---

    Private Sub printText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim MainFormat As New StringFormat(StringFormatFlags.DirectionRightToLeft)
        Dim left As Integer = SetRightToLeft(TextBox1.Text, 10, ev.PageSettings.PaperSize.Width)
        MsgBox(left)
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, FontStyle.Regular), Brushes.Black, left, 120, MainFormat)
        ev.HasMorePages = False
    End Sub

---

اینم تابع:

کد:

---

    Private Function SetRightToLeft(ByVal strT As String, ByVal x As Integer, ByVal pagewidth As Integer) As Integer
        Dim lbl As New Label
        lbl.Text = strT
        Dim w = lbl.GetPreferredSize(New Size()).Width
        lbl.Dispose()
        Return pagewidth - (x + w)
    End Function

---

موفق باشید.

نقل قول:

---

نوشته شده توسط hamishebahar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من متوجه نشدم میشه یه پرینت بگیرین که چطوریه؟
یعنی چی سمت چپ کاغد میاد؟
یعنی شما الان دارین کاغذ پرینت میکنید؟:18:

---

:31: شرمنده‌ اگه‌ واضح بیان نکردم...

با این کدی که‌ بالا نوشتم موقه‌ پرینت گرفتن از Textbox باید محتوای نوشتاری Textbox سمت راست Output بشه‌ که‌ نمیشه‌ ( محتوای نوشتاری TextBox سمت چپ Output میشه‌ ).

با این کد که‌ شما زحمتش رو کشیدین مشکل حل نشد لطفا اگه‌ کمک کنی ممنون میشم بخدا گیچ شده‌ام:24:

سلام.
خوب کد بالا که دادم رو تست کردم درست کار میکنه ولی برای کادر متن باید TextAlign = Left بشه.
موفق باشید.

نقل قول:

---

نوشته شده توسط hamishebahar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام.
خوب کد بالا که دادم رو تست کردم درست کار میکنه ولی برای کادر متن باید TextAlign = Left بشه.
موفق باشید.

---

HamisheBahar جان سلام نمونه‌ کار رو گذاشتم لطف کن یه‌ نگاهی بنداز و اگه‌ تونستی زحمت تصحیح کردنش رو بکش که‌ تا زنده‌ام مدیونت میشم عزیز

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

HamisheBahar جان سلام نمونه‌ کار رو گذاشتم لطف کن یه‌ نگاهی بنداز و اگه‌ تونستی زحمت تصحیح کردنش رو بکش که‌ تا زنده‌ام مدیونت میشم عزیز

---

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

تمام کدهای فرمتونو به این صورت تغییر بدین:

کد:

---

Imports System.Drawing.Printing

Public Class Form1


    Private Sub printText(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim MainFormat As New StringFormat(StringFormatFlags.DirectionRightToLeft)
        Dim left As Integer = SetRightToLeft(TextBox1.Text, 10, ev.PageSettings.PaperSize.Width)
        MsgBox(left)
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, FontStyle.Regular), Brushes.Black, left, 120, MainFormat)
        ev.HasMorePages = False
    End Sub


    Private Sub BTNPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPrint.Click
        Try
            Dim prindoc As New PrintDocument
            AddHandler prindoc.PrintPage, AddressOf Me.printText

            prindoc.Print()
        Catch ex As Exception
            MessageBox.Show("???????", ex.ToString())
        End Try
    End Sub

    Private Function SetRightToLeft(ByVal strT As String, ByVal x As Integer, ByVal pagewidth As Integer) As Integer
        Dim lbl As New Label
        lbl.Text = strT
        Dim w = lbl.GetPreferredSize(New Size()).Width
        lbl.Dispose()
        Return pagewidth - (x + w)
    End Function
End Class

---

موفق باشی دوست من:11:.