Visual Basic - problema con impresion

hola chicos tengo un prwueño problema con la impresion ya ke ya tengo configurado el boton de common diaglogo del visual 6.0 y todo muy bien hasta que lo mando imprimir no me marca error pero no sale nda de impresion no se ke pueda hacer..aki esta el codigo ke tengo
gracias por tu ayuda

Private Sub cmdimprime_Click()



dlgBase.CancelError = True
On Error GoTo manejoerror:

dlgBase.ShowPrinter

Dim instpaginainicial As Integer
Dim intpaginafinal As Integer
Dim intnumerocopias As Integer
Dim intcontador As Integer

intpaginainicial% = dlgBase.FromPage
intpaginafinal% = dlgBase.ToPage
intnumerocpias% = dlgBase.Copies

Print "Inicio:"; intpaginainicial%
Print "Fin:"; intpaginafinal%
Print "Copias:"; intnumerocopias%

For intcontador% = 1 To intnumerocopias%
frmvista.PrintForm
Next intcontador%

Exit Sub

manejoerror:
MsgBox "No se definio nada en la impresora"

End Sub