Сделать печать из текстового поля на бумажные поля? (w/PageSetup)

Question

У меня возникло множество проблем, связанных с тем, что диалог печати и страница настроены для совместной работы, чтобы печатать текст из текстового поля, я потратил часы на исследование и все попытки, я не могу заставить его работать, может кто-то пожалуйста, помогите мне, и дать мне код, чтобы напечатать документ из текстового поля, а также получить страницу настройки для работы с ним (так же, как в блокноте)

Вот мой код Thats не работает

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If (PrintDialog1.ShowDialog() = DialogResult.OK) Then 
     PrintDocument1.Print() 
    End If 
End Sub 

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    PageSetupDialog1.ShowDialog() 
    PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings 
End Sub 

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 
    Dim textArea As New Rectangle() 
    e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Black, 100, 100) 
End Sub 

Thanks

Answer 1

Если вы используете PrintDocument, вы можете нарисовать текст на Rectangle, и он обернется естественным образом. Вы также можете использовать объект StringFormat для другой справки по форматированию.

Private Sub printDoc_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs) Handles printDoc.PrintPage 
    Dim textArea As New Rectangle(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height) 
    e.Graphics.DrawString(textbox1.Text, New Font("Consolas", 10), Brushes.Navy, textArea) 
'other stuff 
End Sub