Access - Error en impresión pdf prtloop??

   
Vista:

Error en impresión pdf prtloop??

Publicado por antonio (114 intervenciones) el 31/08/2011 08:59:08
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder