VB 2010 PrintDocument 스택에 인쇄 된 텍스트

Question

현재 프로젝트에서 다른 문제가 발생했습니다. 인쇄 할 양식이 있습니다. 온라인으로 검색하기 몇 가지 예제를 찾아 내 코드에 구현했습니다. 인쇄하지만 모든 텍스트 상자와 레이블이 서로 겹쳐서 인쇄됩니다. 양식에있는 형식의 텍스트 상자와 레이블을 인쇄하려면 어떻게해야합니까?

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 

임은 여전히 ​​새로운 2010 VB 너무 어떤 도움이 감사합니다, 감사합니다 :

여기 내 코드입니다!

Answer 1

실수를 저질렀습니다. 나는 전체 시간 내 얼굴에 있던대로, 박쥐만큼 눈이 멀다.

누군가를 알아 내야 할 경우를 대비하여.

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