I am using the following code to print some images, lables and now want to incorporate printing the contents of an RTB. The problem is is the user does NOT use the enter key to start a new line the contents print as one long line
I do not want to use PowerPacks printing thannks for any help
I do not want to use PowerPacks printing thannks for any help
Code:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim img1 As Image = PictureBox1.Image
Dim printArea1 As New RectangleF(1, 1, 5, 3.0) 'dimensions in inches
Dim img2 As Image = PictureBox2.Image
Dim printArea2 As New RectangleF(4.5, 4.5, 5, 3.0) 'dimensions in inches
Dim img3 As Image = PictureBox3.Image
Dim printArea3 As New RectangleF(8, 8, 5, 3.0) 'dimensions in inches
Dim f As New Font("Times New Roman", 14, FontStyle.Underline)
Dim g As New Font("Times New Roman", 14, FontStyle.Regular)
Dim b As New SolidBrush(Color.Black)
Dim c As Integer = 60
Dim xRes As Single = 90 'img1.HorizontalResolution / 2
Dim yRes As Single = 90 'img1.VerticalResolution / 2
e.Graphics.DrawImage(img1, printArea1.X * xRes, printArea1.Y * yRes, printArea1.Width * xRes, printArea1.Height * yRes)
e.Graphics.DrawImage(img2, printArea1.X * xRes, printArea2.Y * yRes, printArea2.Width * xRes, printArea2.Height * yRes)
e.Graphics.DrawImage(img3, printArea1.X * xRes, printArea3.Y * yRes, printArea3.Width * xRes, printArea3.Height * yRes)
e.Graphics.DrawString(Label1.Text, f, b, 600, 150)
e.Graphics.DrawString(Label2.Text, f, b, 600, 450)
e.Graphics.DrawString(Label3.Text, f, b, 600, 750)
e.Graphics.DrawString(RichTextBox1.Text, g, b, 600, 250)
e.Graphics.DrawString(RichTextBox2.Text, g, b, 600, 600)
e.Graphics.DrawString(RichTextBox3.Text, g, b, 600, 850)
End Sub