Visual Basic - Problemas al imprimir

Hola, apenas empiezo con VB, necesito ayuda para imprimir el contenido de una richtextbox, el código que uso es este:
El botón de impresión se llama Imprimir

Private Sub Imprimir_Click()
Dim BeginPage, EndPage, NumCopies, i
dlgPrinter.CancelError = True
On Error GoTo ErrHandler
dlgPrinter.ShowPrinter
BeginPage = dlgPrinter.FromPage
EndPage = dlgPrinter.ToPage
NumCopies = dlgPrinter.Copies
For i = 1 To NumCopies
Printer.Print rtfText.Text
Next
Exit Sub

ahora, el código sí imprime lo que tiene la richtextbox, pero lo hace hasta que se cierra el programa, no entiendo por qué. Por ejemplo, das clic en el botón y no imprime, pero al terminar la aplicación la hoja se empieza a imprimir, esto causa que cuando no imprime la primera vez, le des clic varias veces para ver si imprime, y al salir de la aplicación, imprime cuantas veces le diste clic al botón de imprimir. Por favor ayúdenme, quisiera saber cómo imprimir este texto o si el problema es de mi impresora.

Mi impresión de lo que puede ocurrir es que la tardanza que aprecias al iniciar la Impresión es lo que tarda la Impresora al cargar en su bufer el texrto que ha de imprimir.
Para saber que al hacer click en el Botton de impresión, la Impresora acomete ya el trabajo, es consignando como primera insrucción inmediatamente a Private Sub imprimir Click, la siguiente:

Screen.mousepointer = 11
y otra al final pero antes del Exit sub que es la siguiente

Screen.mousepointer = 0

Como espero sabrás, estas instrucciones hacen aparecer el reloj de arena (espera) la primera, mientras dura el proceso de impresión y cuando termina ésta, hace desaparecer dicho reloj de arena, la siguiente instrucción.- Por tanto, mientras existan en pantalla dicho reloj no podrás hacer otro click y te evitarás el que se duplique la impresión y al mismo tiempo tu ya tienes conocimiento de que el proceso está en marcha.
Espero que ésto sea el motivo del problema que expones.
Un saludo.

Como continuación a mi respuesta anterior, aprecio que también puede influir en tu problema el que omites el metodo:
enddoc
que sabrás hay que escribirla después del next i.
No obstante insisto en todo cuanto te expuse en mi anterior respuesta.
Un saludo.

Gracias por tu ayuda, al poner el procedimiento printer.endoc funcionó perfectamente, también lo de los iconos hace que se vea mejor el programa, gracias nuevamente por tu ayuda.