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
Imはまだ新しい2010をVBにので、任意のヘルプは高く評価され、感謝:
は、ここに私のコードです!