Servus Leuter,
wie kann ich ein Text aus der Textbox im Center Drucken?
hab schon einige Sachen versucht aber nichts führte zu einer Lösung
Hier der Aktuelle Code:
wie kann ich ein Text aus der Textbox im Center Drucken?
hab schon einige Sachen versucht aber nichts führte zu einer Lösung
Hier der Aktuelle Code:
VB.NET-Quellcode
- Public Class Form1
- Public Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
- Dim displayRectangle As New Rectangle(New Point(40, 40), New Size(80, 80))
- Dim format1 As New StringFormat(StringFormatFlags.NoClip)
- Dim format2 As New StringFormat(format1)
- format1.LineAlignment = StringAlignment.Near
- format1.Alignment = StringAlignment.Center
- format2.LineAlignment = StringAlignment.Center
- format2.Alignment = StringAlignment.Far
- e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 15, FontStyle.Bold), Brushes.Black, RectangleF.op_Implicit(displayRectangle), format1)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim pd As New Printing.PrintDocument
- AddHandler pd.PrintPage, AddressOf PrintPage
- pd.Print()
- End Sub
- End Class