VB2008 - Problema con PrintDocument

hola

el tema es que estas haciendo entrar a ese metodo en un ciclo recursivo

si lo revisas bien veras que imprimir() invoca a rptConsumo como evento del PrintDocument

pero al final de rptConsumo vuelve a invocar a Imprimir(), o sea este vuelve a adjuntar el evento y lanzar la impresion y asi sucesivamente, entra en un ciclo infinito

por ahi debas quitar este metodo al final de rptConsumo

o sea quitar lo que marco en negrita

.

.

.

e.Graphics.DrawString(Space(1) & "=================================", Font10Nor, Brushes.Black, 1, 15 + NLinea)

        e.Graphics.DrawString(Space(25) & "TOTAL $ " & Space(ESP3) & CStr(ffTotal).Replace(",", "."), Font10Nor, Brushes.Black, 1, 30 +

        e.Graphics.DrawImage(img, 1, 90 + NLinea, 300, 150)
        e.HasMorePages = False

        Imprimir()
    End Sub

saludos