Criei funçao print em .net 2003 mas imprime a folha sem o que se escreve

[Fil__]

Malta tenho um form no .net 2003 com text box e tenho um botao para imprimir com o seguinde codigo

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim dialog As New PrintDialog
        dialog.Document = pdoc
        If dialog.ShowDialog = DialogResult.OK Then
            pdoc.Print()
        End If     
    End Sub

Ele realmente imprime mas nao percebo o porque de nao imprimir o que escrevo. Baseei-me dum exemplo que vi na net e esse exemplo ele imprime o texto perfeitamente. O que estarei a fazer de errado?

 

[Fil__]

Ja consegui imprimir o conteudo de 1 Textbox. Acrescentei o seguinte codigo

    Private Sub pdoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pdoc.PrintPage
        Static intCurrentChar As Int32
        Dim font As New Font("Microsoft Sans Serif", 12)
        Dim intPrintAreaHeight, intPrintAreaWidth, marginLeft, marginTop As Int32
        With pdoc.DefaultPageSettings
            intPrintAreaHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
            intPrintAreaWidth = .PaperSize.Width - .Margins.Left - .Margins.Right
            marginLeft = .Margins.Left ' X coordinate
            marginTop = .Margins.Top ' Y coordinate
        End With
        If pdoc.DefaultPageSettings.Landscape Then
            Dim intTemp As Int32
            intTemp = intPrintAreaHeight
            intPrintAreaHeight = intPrintAreaWidth
            intPrintAreaWidth = intTemp
        End If

        Dim intLineCount As Int32 = CInt(intPrintAreaHeight / font.Height)
        Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, intPrintAreaWidth, intPrintAreaHeight)


        Dim fmt As New StringFormat(StringFormatFlags.LineLimit)
 
        Dim intLinesFilled, intCharsFitted As Int32
        e.Graphics.MeasureString(Mid(TbCliente.Text, intCurrentChar + 1), font, _
                    New SizeF(intPrintAreaWidth, intPrintAreaHeight), fmt, _
                    intCharsFitted, intLinesFilled)

        ' Print the text to the page.
        e.Graphics.DrawString(Mid(TbCliente.Text, intCurrentChar + 1), font, _
            Brushes.Black, rectPrintingArea, fmt)

        intCurrentChar += intCharsFitted

    End Sub

Mas eu tenho varias textbox e algumas combobox. Consegui que imprimisse os conteudos de 2 textbox so que as palavras ficam uma em cima da outra. O que estarei a fazer mal? Pretendo que todos os dados colocados nelas sejam imprimidos. O que estara a falhar?
Podem ajudar?

 

[Fil__]

Ninguem me pode ajudar?