Saltar al contenido

Laura Rojas

Miembros
  • Contador de contenido

    1
  • Unido

  • Última visita

Sobre Laura Rojas

  • Rango
    Novato

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. Laura Rojas

    Error al Imprimir en pdf

    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
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.