buenos días, acudo a ustedes a ver si alguien podría ayudarme tengo un código que lo que hace es intentar imprimir una hoja de excel en Pdf en una ruta determinada y nombre pero al momento de compilar no muestra errores y al momento de ejecutar la macro me muestra un error que dice " Se ha producido el error "5" en tiempo de ejecución: Argumento o llamada a procedimiento No valido", he revisado el código y no se que sera, desconozco si para imprimir en PDF debo activar algo si pueden ayudar les dejo el código y les señalo donde me da el error al momento de depurar me señala estas lineas que es de donde me da el error
buenos días, acudo a ustedes a ver si alguien podría ayudarme tengo un código que lo que hace es intentar imprimir una hoja de excel en Pdf en una ruta determinada y nombre pero al momento de compilar no muestra errores y al momento de ejecutar la macro me muestra un error que dice " Se ha producido el error "5" en tiempo de ejecución: Argumento o llamada a procedimiento No valido", he revisado el código y no se que sera, desconozco si para imprimir en PDF debo activar algo si pueden ayudar les dejo el código y les señalo donde me da el error al momento de depurar me señala estas lineas que es de donde me da el error
"""Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True """"
les dejo el codigo completo que tengo
Sub Imprime1()
Application.ScreenUpdating = False
If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
'----------------------------------------------
Dim HResumen As Worksheet
Dim Ruta As String
Dim Titulo As String
Set HResumen = Worksheets("Resumen")
Ruta = ThisWorkbook.Path & "\"
Titulo = HResumen.Range("A2").Text
HResumen.Range("A1:I20").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
HResumen.Range("A1").Select
'----------------------------------------------
End If
End Sub