2016-04-23 3 views
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 

Любая помощь приветствуется. Приветствия

+3

'e.Graphics.DrawRectangle' – LarsTech

ответ

Смежные вопросы