將文本框值打印到printdocument上的表格

Question

我需要打印包含文本和表格的文檔。我可以打印文本，但我已經搜索了很多如何打印表格，而我什麼也沒找到。我想將文本框中的值放在打印表格的單元格中。

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 

任何幫助表示讚賞。乾杯

Answer 1

您可以使用e.Graphics.DrawRectangle與e.Graphics.DrawLine

您也可能會發現這些文章很有用：

DataGridView Printing

Printing Tabular Data