Question

VB.NET如何能将文本框中的内容原样打印

VB.NET 一个文本框textbox中的内容怎么能按照文本框中的排版模式直接打印出来

Answer 1

Imports System.Drawing.Printing
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim PDoc As New PrintDocument
            AddHandler PDoc.PrintPage, AddressOf Me.PText
            PDoc.Print()
        Catch ex As Exception
            MessageBox.Show("error", ex.ToString)
        End Try
    End Sub
    Private Sub PText(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        e.Graphics.DrawString(TextBox1.Text, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 120, 120)
        e.HasMorePages = False
    End Sub
End Class