Visual Basic - Error al imprimir en PDF

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 21
Ha disminuido su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error al imprimir en PDF

Publicado por Laura (12 intervenciones) el 06/01/2019 13:54:47
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 """"



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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
error1
error2
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
Imágen de perfil de Antoni Masana
Val: 1.138
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error al imprimir en PDF

Publicado por Antoni Masana (401 intervenciones) el 06/01/2019 18:56:45
Falta saber que datos esta leyendo.

Añade esta línea remarcada y prueba:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
 
MsgBox "Fichero: ->" & Ruta & Titulo & "<-"
 
        Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                                      Filename:=Ruta & Titulo, _
                                      Quality:=xlQualityStandard, _
                                      IncludeDocProperties:=True, _
                                      IgnorePrintAreas:=False, _
                                      OpenAfterPublish:=True
 
        HResumen.Range("A1").Select
        '----------------------------------------------
    End If

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 21
Ha disminuido su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error al imprimir en PDF

Publicado por Laura (12 intervenciones) el 06/01/2019 19:43:30
Hola Antonio gracias por la dedicación ha estos foro , para dar cerrado el tema ya resolví el error se trata que con la versión que trabajo es 2007 y para que me funcione esa rutina debIA descargar un complemento de microsoft que wsta en su pagina he instalarlo un complemento de combatir en pdf , eso en versiones más avanzadas ya lo trae nativo excel. Gracias por la ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error al imprimir en PDF

Publicado por Cristofer Ibaceta (1 intervención) el 20/03/2020 23:11:13
Buenas Tardes, se que ha pasado mucho tiempo desde tu publicación. pero hoy me encuentro con el mismo problema que tu tuviste en tu momento, tengo el office 2007 y me gustaría me pudieras ayudar indicando cual es el complemento microsoft que descargaste. desde ya muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 21
Ha disminuido su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error al imprimir en PDF

Publicado por Laura (12 intervenciones) el 06/01/2019 20:17:32
ok, les dejo por aqui el codigo que me funciono, pero ahora tengo otro problema, en mi libro de excel yo tengo las hojas ocultas y el programa funciona desde un menu principal, si tengo las hoas abiertas el imprime en pdf pero cuando tengo las hoas ocultas no imprime el pdf ... que debo hacer


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Sub ImprimirFactura()
 
 
Application.ScreenUpdating = False
 
If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
'----------------------------------------------
 
 
    Dim Ruta As String
    Dim RNC As String
    Dim FECHA As String
 
 
 
        Ruta = ThisWorkbook.Path & "\FACTURA\"
        RNC = Hoja18.Range("H7").Text
        FECHA = Hoja18.Range("H5").Text
 
'''===============================================================================
 
        'Cells.Select
        'HFACTURA.Range("D1:J58").Select
 
    activeSheets("hoja18").Range("B1:H49").ExportAsFixedFormat Type:=xlTypePDF, FileName:=Ruta & FECHA & "_" & RNC, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
'''===============================================================================
 
    'HFACTURA.Range("B1").Select
'----------------------------------------------
 
End If
 
 
  MsgBox "Se ha generado Exitosamente la factura, se encuentra en la carpeta FACTURA", , "Gestor Empresarial SCT"
 
 
  Unload Me
 
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar