problema con impresion

 Private Sub Print_Click(ByVal sender As System.Object, ByVal e 
As System.EventArgs) Handles Print.Click

        'instrucciones para determinar la impresion del documento 
        PrintDialog.Document = PrintDocument
        Dim result As DialogResult = PrintDialog.ShowDialog

        If (result = Windows.Forms.DialogResult.OK) Then
            PrintDocument.Print()
        End If

End Sub

lo que hace dicho metodo es mostrame un cuadro de dialogo para configurar la impresion de un archivo txt que tengo, pero dentro del  cuadro me aparecen desabilitadas varias opciones , y cuando le doy impimir la impresora tira la hoja en blanco como si no hubieran letras que imprimir, les comento que dicho txt lo tengo en un RichTextbox y necesito imprimir esos datos

me podrian ayudar.

saludos