2012-01-13 69 views
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所以任何帮助表示赞赏,谢谢!

回答

1

刚刚意识到我的错误。我像蝙蝠一样盲目,因为它一直在我的脸上。

以防其他人需要弄清楚这一点。

e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Blue, X-coordinate, Y-coordinate)