> microsoftのサイトにその方法が記載されています。
どの URL を参考にされたのか、具体的に記述された方が良いですよ。
内容からすると、下記のページでしょうか?
http://support.microsoft.com/kb/811401/

> 私は、上半分はTextBoxの内容をe.Graphics.DrawStringで記載し、
> 下半分にはRichTextBoxの内容を印刷したいのです。
上記の URL だと仮定すると、このように書けます。

「下半分にRichTextBoxの内容を印刷」してみました。
(上半分のTextBox部や、ページ番号の表記などは省略しています)

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, _

    ByVal e As System.Drawing.Printing.PrintPageEventArgs _

    ) Handles PrintDocument1.PrintPage



    Dim mb As New Rectangle( _

        e.MarginBounds.X, _

        e.MarginBounds.Y + e.MarginBounds.Height \ 2, _

        e.MarginBounds.Width, _

        e.MarginBounds.Height \ 2)

    Dim pb As New Rectangle( _

        e.PageBounds.X, _

        e.PageBounds.Y + e.PageBounds.Height \ 2, _

        e.PageBounds.Width, _

        e.PageBounds.Height \ 2)





    Dim eg As New System.Drawing.Printing.PrintPageEventArgs( _

        e.Graphics, mb, pb, e.PageSettings)



    checkPrint = RichTextBoxPrintCtrl1.Print(checkPrint, _

        RichTextBoxPrintCtrl1.TextLength, eg)



    If checkPrint < RichTextBoxPrintCtrl1.TextLength Then

        e.HasMorePages = True

    Else

        e.HasMorePages = False

    End If

End Sub

> TextBoxの内容を印刷する方法では大変参考になりました。
以前に質問された方でしょうか?
(投稿者「kumasuzumusi」で検索しましたが、該当する投稿は見つかりませんでした)

> はじめまして。
あれ? という事は初投稿なのでしょうか?