Access - Error en impresión pdf prtloop??

Hola a todos,

He puesto el siguiente código en mi bdt con la intención de imprimir en pdf mis informes. Una vez hecho me dice que hay un errror y me colorea la parte de prtLoop.
¿sabría alguien decirme que hay mal?

Muchas gracias




Private Sub ImprimirPDF_Click()
On Error GoTo Err_ImprimirPDF_Click


For Each prtLoop In Application.Printers
With prtLoop

'En la linea de abajo debes poner la Impresora pdf que tengan registrada
If .DeviceName = "Adobe PDF" Then


Application.Printer = prtLoop
stDocName = "informeiniciopropuestagasto"
DoCmd.OpenReport stDocName, acViewNormal
Set Application.Printer = Nothing


Exit For

End If

End With

Next prtLoop

Exit_ImprimirPDF_Click:
Exit Sub
Err_ImprimirPDF_Click:
MsgBox Err.Description
Resume Exit_ImprimirPDF_Click

End Sub