Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Mensaje al generar PDF desde excel

Excel - Mensaje al generar PDF desde excel

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de JOSE LUIS
Val: 80
Ha disminuido su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por JOSE LUIS (60 intervenciones) el 23/01/2020 14:20:34
Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que ayuden de que manera se puede evitar el mensaje Publicación... al momento de guardar el formato en pdf y como se aprecia en la imagen:

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
Sub ElegirAccion()
Dim i As Integer
Dim intInicial As Integer
Dim intFinal As Integer
Dim intConsecutivo As Integer
Dim srtTitulo As String
Dim Ruta As String
Dim nombre As String
 
nombre = ThisWorkbook.Sheets("BOLETA PDF").Range("O4").Value
 
 
srtTitulo = "PRUEBITA"
intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value
 
    intInicial = Sheets("BOLETA PDF").Range("N4")
    intFinal = Sheets("BOLETA PDF").Range("M3")
 
    If intFinal < intInicial Or intFinal > intConsecutivo Then
        MsgBox "Valida el ID final.", vbExclamation, srtTitulo
    Else
          Sheets("BOLETA PDF").Select
        Ruta = ActiveWorkbook.Path
                For i = intInicial To intFinal
 
                    ThisWorkbook.Sheets("BOLETA PDF").Range("B4").Value = i
 
 
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & Sheets("BOLETA PDF").Range("B6") & " " & "BOLETAS MN " & Sheets("BOLETA PDF").Range("I7") & ".pdf", _
                    Quality:=xlQualityMinimum, _
                    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
               Next i
            End If
    Sheets("BOLETA PDF").Activate
    Range("B4").Select
    intInicial = Sheets("BOLETA PDF").Range("N4")
 
End Sub

y una de mis interrogantes es que quizás por la sentencia:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta

Tal vez exista otro procedimiento para evitar dicho mensaje o mejorar el codigo, por lo que desde ya agradezco su apoyo.
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 Alfredo
Val: 363
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por Alfredo (120 intervenciones) el 23/01/2020 22:58:15
Hola José Luis

Yo ocupo la misma instrucción para exportar a PDF, pero no me aparece ningún mensaje, la única diferencia que observo en tu rutina VS la mia, es que yo escribo en la variable "Ruta" la ruta completa sin la extensión, ya que Excel se ocupa de ello.

Prueba y nos comentas

Saludos
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
Imágen de perfil de JOSE LUIS
Val: 80
Ha disminuido su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por JOSE LUIS (60 intervenciones) el 24/01/2020 13:40:35
Hola Alfredo, conforme a lo descrito, entonces voy a variar la instrucción de acuerdo a lo descrito en tu mensaje que he resaltado en negrita, tambien queria mencionar que adjunte un archivo zipeado (imagen) donde se aprecia el mensaje de Publicación... al momento que empieza a guardar los pdf.

que observo en tu rutina VS la mia, es que yo escribo en la variable "Ruta" la ruta completa sin la extensión, ya que Excel se ocupa de ello.

Saludos.
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
Imágen de perfil de Dirk
Val: 455
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por Dirk (166 intervenciones) el 24/01/2020 17:49:57
Hola Jose, puede ser que el proceso de exportar se tarde, así que Excel avisa que está procesando algo con un mensaje que sería el que te aparece a ti (no estoy seguro porque yo también tengo que generar archivos pdf y no me muestra ese mensaje o por lo menos no lo logro ver...); prueba usando la instrucción Application.ScreenUpdating = False antes de comenzar a exportar y Application.ScreenUpdating = True al finalizar, esto lo que hace es que Excel no refresque la pantalla con lo que hace la macro por ejemplo cuando cambias de una hoja a otra, cuando seleccionas una celda, etc sino de deja como congelada la pantalla, al no tener que encargarse de actualizar la pantalla y dedicar recursos en esta tarea, la macro se ejecutaría mas rápido y quizás no te muestre ese mensaje...

Espero te sirva, salu2
Dirk
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
Imágen de perfil de JOSE LUIS
Val: 80
Ha disminuido su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por JOSE LUIS (60 intervenciones) el 24/01/2020 18:05:56
Hola Dirk, agregue la instrucciones indicar y me sigue mostrando dicho mensaje, no se si fuera posible, crear una nueva macro o sobre mi macro mejorarla, el cual no se visualice dicho mensaje.

Saludos.

Nota: el mismo archivo la lleve a 2 PC'S y en 1 pc si muestra y en la otra no muestra el mensaje.
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
Imágen de perfil de Dirk
Val: 455
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por Dirk (166 intervenciones) el 25/01/2020 19:01:04
bueno... por lo visto te da el mensaje exportando 2 archivos, se me ocurre que el tamaño tenga que ver... has el archivo mas pequeño borrando pestañas u hojas, sino... pasa el archivo sin la información delicada para que podamos hacer pruebas...

Salu2
Dirk
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
Imágen de perfil de JOSE LUIS
Val: 80
Ha disminuido su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Mensaje al generar PDF desde excel

Publicado por JOSE LUIS (60 intervenciones) el 26/01/2020 14:34:34
Buenos días Dirk, adjunto el link del archivo donde a pesar de buscar varias opciones, aun se mantiene el mensaje Publicación..., para lo cual adjunto 2 vídeos donde se aprecia al momento de seleccionar la opción:

Link de archivo:
https://drive.google.com/file/d/1LBoYQjz8R6AdCoDVo9lG6Ay5I2Nl0yPf/view?usp=sharing

Link de video desde la pestaña MENU:
https://drive.google.com/file/d/1HEe0aapCnGAFDJqOWlGWM-b_BnXUuo7k/view?usp=sharing


Link de video desde la pestaña BOLETA PDF
https://drive.google.com/file/d/1h9_vier72SoaFAAsBx6ZazusSz6tbQGN/view?usp=sharing

el código de la macro esta en IMPRIMIRPDF
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
Option Explicit
Sub ElegirAccion()
    Dim i As Integer
    Dim intInicial As Integer
    Dim intFinal As Integer
    Dim intConsecutivo As Integer
    Dim Ruta As String
    Dim nombre As String
 
    nombre = ThisWorkbook.Sheets("BOLETA PDF").Range("O4").Value
 
    intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value
 
    intInicial = Sheets("BOLETA PDF").Range("N4")
 
    intFinal = Sheets("BOLETA PDF").Range("M3")
 
 
        Ruta = ActiveWorkbook.Path
 
        For i = intInicial To intFinal
 
            ThisWorkbook.Sheets("BOLETA PDF").Range("L4").Value = i
 
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & Sheets("BOLETA PDF").Range("B6") & " " & "BOLETAS MN " & Sheets("BOLETA PDF").Range("I7") & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
        Next i
 
 
    Sheets("BOLETA PDF").Activate
    Range("L4").Select
 
    intInicial = Sheets("BOLETA PDF").Range("N4")
 
End Sub


Desde ya agradezco la atención.
Saludos.
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