Macro para guardar una base de datos a archivo PDF

Tengo el siguiente macro que uso para imprimir una base de datos sobre un formato (el formato es fijo, solo algunas celdas cambian). Mi problema es que ahora que necesito "imprimirlo" como pdf a cada rato me pregunta el nombre de un archivo, hay alguna manera de que puedan guardarse como PDF sin pedirme el nombre del archivo(a veces tengo que imprimir mas de 300 hojas diferentes) o compilarse todo en un archivo pdf.
Sub IMPRIMIR()
Inicio = Range("M6").Value
Fin = Range("Q6").Value
For i = Inicio To Fin
Range("O4").FormulaR1C1 = i
ActiveWindow.SelectedSheets.PrintOut copies:=1
Next
Range("O4") = ""
End Sub

1 Respuesta

Respuesta
3

Te anexo la macro actualizada para imprimir y guardar como pdf

Sub IMPRIMIR()
    ruta = ThisWorkbook.Path & "\"
    arch = "archivo"
    Inicio = Range("M6").Value
    Fin = Range("Q6").Value
    For i = Inicio To Fin
        Range("O4").FormulaR1C1 = i
        ActiveSheet.PrintOut copies:=1
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=ruta & arch & "_" & i & ".pdf", _
            Quality:=xlQualityStandard, IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next
    Range("O4") = ""
End Sub

Los archivos se van a crear con el nombre: achivo_1.pdf, archivo_2.pdf, archivo_n.pdf

Si no quieres imprimir, solamente quita esta línea:

        ActiveSheet.PrintOut copies:=1
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Si quieres que todas las hojas queden en un solo PDF, ejecuta la siguiente macro

Sub IMPRIMIR()
'Act Por Dante Amor
    '
    Application.ScreenUpdating = False
    '
    ruta = ThisWorkbook.Path & "\"
    arch = "archivo"
    Inicio = Range("M6").Value
    Fin = Range("Q6").Value
    una = True
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    For i = Inicio To Fin
        h1.Range("O4").FormulaR1C1 = i
        'h1.PrintOut copies:=1
        If una Then
            una = False
            h1.Copy
            Set l2 = ActiveWorkbook
        Else
            h1.Copy after:=l2.Sheets(l2.Sheets.Count)
        End If
        Set h2 = l2.ActiveSheet
        h1.Cells.Copy
        h2.Range("A1").PasteSpecial xlValues
    Next
    l2.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & arch & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    l2.Close False
    Range("O4") = ""
    Application.CutCopyMode = False
End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Detectar cambios en tabla dinámica

Tengo una hoja donde se van actualizando datos mediante una tabla dinámica. ¿Cómo detecto cuando se producen cambios (sólo en la parte de la tabla dinámica) para ejecutar otra macro en la misma hoja?
1 respuesta

Macro con combinación de teclas

Acudo aquí buscando ayuda, ¿Cómo crear una macro que genere una combinación de teclas? NO se trata de asignar una macro a una combinación de teclas, es todo lo contrario. El problema radica en que tengo una macro que rellena ciertas celdas con...
1 respuesta

Pasar datos de listbox a hoja con decimales

Como están estimados maestros y maestras, una vez mas solicitando vuestra experta ayuda. Tengo un formulario que busca datos entre 2 fechas desde 2 textbox, carga en listbox lo filtrado, en la columna 2 del listbox carga valores con formato de 2...
1 respuesta

BUENAS identificar idioma de teclado y región

Estoy haciendo cambiando español usa y latino y este teclado me dice que tiene ñ y aparte algunas ALT no funcionan en estos dos idiomas, por favor cual idioma es y la región es un mini teclado mecánico profesional JYR TGMJR-007 quiero saber si hay o...
5 respuestas

Una macro que de aviso sobre vencimiento de una cedula de identidad

Tengo una hoja de calculo de 6 columnas en donde la columna A es fecha de vencimiento, las columnas B, C, y D son apellidos paterno, Materno u nombres, la columna E es el numero de cedula de identidad Con Formato ##.###.###-# la columna F es lo...
1 respuesta

Donde guardar información para que una persona pueda descargar con un enlace

😃 Estoy empezando a vender en Marketplace algunos productos y entre los menajes que me envían las personas me solicitan las características técnicas del producto. Mi pregunta es donde puedo subir esa información para poderla compartir mediante un...
2 respuestas

¿Arreglo mi móvil o me compro uno nuevo?

Tengo un pocophone f1 desde 2018 y me ha ido genial pero se ha roto la pantalla porque se me ha caído y no se que hacer si repararlo o comprar uno nuevo, porque he leído que a veces no se queda bien. No sé que hacer, además no me gusta que se metan...
2 respuestas

I need good Dating site, pls

Hello! Where can I find a site with real people for flirting and pleasant communication? I just want to get a good mood from communicating with cute attractive people.
11 respuestas

Error decimales en hoja de excel

Tengo un albarán de varios productos que no vienen desglosado el iva En una hoja Excel introduzco el precio, con la formula sumar el precio lo desgloso en base imponible y el iva paracque me dé el precio del producto pero cuando sumo el total de...
4 respuestas

Filtrar información y luego pasar a otro libro

Tengo una macro que copia y pega del libro llamado Origen y Hoja1, dónde este está cerrado, al libro Destino y Hoja 2 de la siguiente manera: Sub importar() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...
1 respuesta