0
Мне нужно распечатать документ, содержащий тексты и таблицы. Я в порядке с печатью текста, но я много раз искал, как печатать таблицу, и ничего не нашел. Я хочу поместить значения из текстовых полей в ячейках на печатной таблице.Печать текстовых полей в таблицу на printdocument
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
DirectCast(PrintPreviewDialog1, Form).WindowState = FormWindowState.Maximized
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim printtext As String = vbCrLf + vbCrLf + vbCrLf + _
"File Number : " + TextBox1.Text + vbCrLf + vbCrLf + _
"Company Name : " + TextBox2.Text + vbCrLf + vbCrLf + _
"Description : " + TextBox3.Text + vbCrLf + vbCrLf
' Do something e.g.
e.Graphics.DrawString(printtext, New Font("Arial", 12, FontStyle.Bold), _
Brushes.Black, 10, 10)
e.HasMorePages = False
End Sub
Любая помощь приветствуется. Приветствия
'e.Graphics.DrawRectangle' – LarsTech