0

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

这是我的代码：

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

4

1 回答 1

1

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

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

e.Graphics.DrawString(TextBox1.Text, TextBox1.Font, Brushes.Blue, X-coordinate, Y-coordinate)
于 2012-01-15T13:06:26.763 回答