0
我遇到了我当前项目的另一个问题。我有一张需要打印的表格。在网上做一些搜索,我找到了一些例子,并将其实现到我的代码中。它打印,但打印所有我的文本框和标签堆叠在一起。我怎样才能得到这个打印我的文本框和标签格式,因为我有他们的形式?VB 2010 PrintDocument堆栈打印的文本
这里是我的代码:
Private Sub PrintToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem1.Click
PrintDocument1.PrinterSettings.Copies = 2
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label1.Text, Label1.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label2.Text, Label2.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(datebox.Text, datebox.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label3.Text, Label3.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(locationbox.Text, locationbox.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label4.Text, Label4.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(groupbox.Text, groupbox.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label5.Text, Label5.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(passbox.Text, passbox.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label7.Text, Label7.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(TextBox6.Text, TextBox6.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(apbox.Text, apbox.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(Label8.Text, Label8.Font, Brushes.Blue, 100, 100)
e.Graphics.DrawString(TextBox7.Text, TextBox7.Font, Brushes.Blue, 100, 100)
End Sub
我还在新到VB 2010所以任何帮助表示赞赏,谢谢!