¿Alguien me sabe sobre una macro que no cancela exportar a PDF?

Les comento que tengo varias Macros que realizan Guardar como" en PDF y otra que pregunta sobre imprimir y con que impresora, el problema radica en que al llegar a la pantalla en donde se finaliza la exportación a PDF o la impresión, si yo quiero cancelar me realiza igual la operación, me imagino que debe ser un problema entre un IF y un Else, pero no he podido llegar a dicha solución.

Les dejo la Macro que utilizo

PDF:

Sub PDFActiveSheet()
Dim ws As Worksheet
Dim strPath As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler
Dim Archivo As String
Dim primera, ultima As Variant

Archivo = Sheets("GENERAL").Range("Q2").Value

Confirmacion = MsgBox("Desea Crear un PDF de la '" & Archivo & "' ?", _
vbQuestion + vbYesNo, "EXCELeINFO")
Application.ScreenUpdating = False
If Confirmacion = vbYes Then
Set ws = ActiveSheet

'enter name and select folder for file
' start in current workbook folder
strFile = Replace(Replace(Archivo, " ", " "), ".", "_") _
& "_" _
& Format(Now(), "dd/mm/yyyy") _
& ".pdf"
strFile = ThisWorkbook.Path & "\" & strFile

myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Archivo")

If myFile <> "False" Then
Range("A1:E73").Select
Range("A1").Activate

Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox "Archivo PDF Creado."
End If

exitHandler:
Exit Sub
errHandler:
MsgBox "No se ha generado el Archivo PDF"
Resume exitHandler
End If
End Sub

1 respuesta

Respuesta
1

Te cambio la forma de guardar el PDF por esta, también cambié el formato de fecha, quité las "/" porque no se permiten en los nombres de archivo y le puse "-"

Sub PDFActiveSheet()
    Dim ws As Worksheet
    Dim strPath As String
    Dim strFile As String
    Dim Archivo As String
    Dim primera, ultima As Variant
    Archivo = Sheets("GENERAL").Range("Q2").Value
    Confirmacion = MsgBox("Desea Crear un PDF de la '" & Archivo & "' ?", _
    vbQuestion + vbYesNo, "EXCELeINFO")
    Application.ScreenUpdating = False
    If Confirmacion = vbYes Then
        Set ws = ActiveSheet
        'enter name and select folder for file
        ' start in current workbook folder
        strFile = Replace(Replace(Archivo, " ", " "), ".", "_") _
        & "_" _
        & Format(Now(), "dd-mm-yyyy") _
        & ".pdf"
        strFile = ThisWorkbook.Path & "\" & strFile
        '
        'Act.Por.Dante Amor
        With Application.FileDialog(msoFileDialogSaveAs)
            .Title = "Guardar archivo como"
            .AllowMultiSelect = False
            .InitialFileName = strFile
            .FilterIndex = 25
            If .Show Then
                march = .SelectedItems(1)
                Range("A1:E73").Select
                Range("A1").Activate
                Selection.ExportAsFixedFormat _
                        Type:=xlTypePDF, _
                        Filename:=march, _
                        Quality:=xlQualityStandard, _
                        IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, _
                        OpenAfterPublish:=True
                MsgBox "Archivo PDF Creado.", vbInformation
            Else
                MsgBox "No se ha generado el Archivo PDF", vbExclamation, "CANCELADO"
            End If
        End With
    End If
End Sub

Saludos.Dante Amor

Dante, la macro esta increiblemente mas sencilla que la mia :) 

lo unico que dirige a la carpeta actual y necesito que me guarde los PDF en la siguiente ruta;

C:\Users\Silviom\Dropbox\IHL (1)\IHL Silvio\cotizaciones\excel

me puedes ayudar?

Te anexo la macro con la actualización, revisa que el nombre de la ruta esté bien escrito y no tendrás problemas.

Sub PDFActiveSheet()
    Dim ws As Worksheet
    Dim strPath As String
    Dim strFile As String
    Dim Archivo As String
    Dim primera, ultima As Variant
    Archivo = Sheets("GENERAL").Range("Q2").Value
    Confirmacion = MsgBox("Desea Crear un PDF de la '" & Archivo & "' ?", _
    vbQuestion + vbYesNo, "EXCELeINFO")
    Application.ScreenUpdating = False
    '
    ruta = "C:\Users\Silviom\Dropbox\IHL (1)\IHL Silvio\cotizaciones\excel\"
    If Confirmacion = vbYes Then
        Set ws = ActiveSheet
        'enter name and select folder for file
        ' start in current workbook folder
        strFile = Replace(Replace(Archivo, " ", " "), ".", "_") _
        & "_" _
        & Format(Now(), "dd-mm-yyyy") _
        & ".pdf"
        strFile = ruta & "\" & strFile
        '
        'Act.Por.Dante Amor
        With Application.FileDialog(msoFileDialogSaveAs)
            .Title = "Guardar archivo como"
            .AllowMultiSelect = False
            .InitialFileName = strFile
            .FilterIndex = 25
            If .Show Then
                march = .SelectedItems(1)
                Range("A1:E73").Select
                Range("A1").Activate
                Selection.ExportAsFixedFormat _
                        Type:=xlTypePDF, _
                        Filename:=march, _
                        Quality:=xlQualityStandard, _
                        IncludeDocProperties:=True, _
                        IgnorePrintAreas:=False, _
                        OpenAfterPublish:=True
                MsgBox "Archivo PDF Creado.", vbInformation
            Else
                MsgBox "No se ha generado el Archivo PDF", vbExclamation, "CANCELADO"
            End If
        End With
    End If
End Sub

Saludos.Dante Amor

¡Gracias! Excelente resultado, había un error en un \ que me enviaba a otro fichero pero lo cambie y funciono enseguida. 

Muchas gracias por todo Dante.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Exportar archivo de excel a pdf y pregunte la ruta

Tengo un problema con una macro que hice para exportar informes de excel a PDF, la cuestión es que quiero que la macro me exporte el archivo a PDF pero me pregunte donde la quiero guardar puesto que el informe lo quiero guardar en una Memoria USB y...
1 respuesta

Seleccionar Varias hojas y copiar o mover a un nuevo libro

Necesito un código que seleccione varias hojas de un libro para mover o copiar a un libro nuevo la hojas seleccionadas, solo necesito seleccionar la varias hojas que están no estén vacías en la celda a1 de cada hoja, tengo este código pero no logro...
1 respuesta

Macro guardar Hoja de EXCEL en formato PDF, Imprimir y Borrar

Siguiendo en el rubro construcción vial, quería saber si se puede hacer un macro que al presionar el botón me guarde la hoja Impresión ARENA en formato .PDF y adquiriendo como nombre el valor de una celda especifica en el escritorio de mi pc, una vez...
1 respuesta

Macros para Exportar archivo excel a Texto con formato (delimitado por espacios)(*.prn)

Los especialistas en macros tengo una macros que quisiera modificar, me exporta en formato (. Rpn) pero cuando lo hago leer con otro programa me dice que el archivo no es válido pese que ese programa lee esos tipos ded archivos. Tal ves la macros que...
1 respuesta

Ejecutar macro solo en una hoja del libro

Tengo un excel con una macro que consiste en darle a un boton, y se envía el texto de esa página en un mail (a unos destinatarios y un asunto concreto, que tu previamente has configurado en la macro). El problema es que yo copio esa hoja, con ese...
1 respuesta

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Guardar varias hojas de Excel en un mismo PDF con cada nombre de cliente

Tengo hecha una macro que me convierte el excel en PDF (solo de una hoja) y me exporta cada PDF de cada cliente a la ruta que le tengo asignado. Necesito que me convierta la primera y segunda hoja del excel a PDF (el mismo PDF) y que se guarde cada...
1 respuesta

Obtener los nombres de Hojas en otro archivo excel

Alguien me podría decir como obtener el nombre de la hoja de algún archivo de excel que no sea el propio. En macro Ejm: Libro: Archivo1.xls Hojas: Cuenta, Análisis, Factura En otro archivo de excel : A1= Ruta de algun archivo de excel (Archivo1.xls)...
1 respuesta