VB 2010 PrintDocument 堆叠打印的文本答案

【问题标题】：VB 2010 PrintDocument stacks printed textVB 2010 PrintDocument 堆叠打印的文本
【发布时间】：2012-01-13 18:40:47
【问题描述】：

我当前的项目遇到了另一个问题。我有一个需要打印的表格。在网上进行了一些搜索，我找到了一些示例并将其实现到我的代码中。它打印但打印我所有堆叠在一起的文本框和标签。我怎样才能让它打印我在表单中格式化的文本框和标签？

这是我的代码：

 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 的新手，因此感谢您的帮助，谢谢！

【问题讨论】：

标签： vb.net visual-studio-2010 printing printdocument

【解决方案1】：

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

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

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

【讨论】：