Keskustelu: Ohjelmointikysymykset: VB.NET: Tulostaminen PrintDocument-luokalla

Eli taasen törmäsin asiaan joka ei kolahda kunnolla,
tarkoitus olisi saada yksinkertaisesti tulostettua RichTextBox1.Text
ruudun sisältämä teksti formin otsikkopalkin tekstin kanssa esim seutaavasti:
------------------
Otsikko.txt
RichTextBox1.Text
-------------------
eikä muuta:

seuraavan olen ymmärtänyt:

Imports System.Drawing.Printing

Public Class Apuruutu

Eli tuon imports lausekkeen sijoittaminen ensimmäiseksi:
sitten seuraava, tulostaa kyllä tyhjän sivun mutta ymmärtäähän sen kun ei ole annettu mitä tulostetaan eli miten seuraava koodin pätkä pitäisi muuttaa että tuo teksti tulostuisi:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _Button3.Click
    Dim PrintDoc As New PrintDocument
    AddHandler PrintDoc.PrintPage, AddressOf Me.PrintText
    PrintDoc.Print()
End Sub

Kiitos taasen etukäteen.

No kun näköjään syvältä kaivaa niin kyllä seiltä näköjään kaiken sotkun keskeltä toimivakin koodin pätkä löytyi.

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      PrintDocument1.Print()
  End Sub

  Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
      Dim Tulo As String
      e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Black, 20, 20)
      e.Graphics.DrawString(RichTextBox1.Text, Me.Font, Brushes.Black, 20, 20)
  End Sub

Lisäys:

No nyt sanotte että nuo rivit menevät päällekkäin ja tottahan se on
eli jälkimmäisen rivin kun muuttaa,

e.Graphics.DrawString(RichTextBox1.Text, Me.Font, Brushes.Black, 20, 40)

niin tulostuu nätisti allekkain