Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Publicar en PDF seleccionando un rango variable

danyelsil

Member
Registrado
12 Ene 2022
Mensajes
92
Buenas noches.

Necesito una macro para publicar un pdf,seleccionando el rango de impresión desde la celda A8 hasta la ultima celda con datos de la columna I, lo guarde en el mismo directorio...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Para no perder tiempo, nuevo Libro en el que importo los Módulos; cambio la variable en el For/Next y listo.
He aprovechado para decirle que ajuste la impresión para que todas la columnas quepan en el ancho de una Hoja: estaban ocupando 2:
Código:
Sub GENERAR_PDF_INDICE_CALIDAD()
    Call Eliminar_ERROR
    With ActiveSheet
    .PageSetup.FitToPagesWide = 1
    .PageSetup.PrintArea = "$A$8:$I$" & Sheets("INDICE CALIDAD").Cells(Rows.Count, "A").End(xlUp).Row
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Range("M9") & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With
End Sub

Adjunto. Si no consigues que deje de ir a los Libros...
Hola @danyelsil,
Te puede servir:
Código:
Sub GENERAR_PDF_INDICE_CALIDAD()
Call Eliminar_ERROR
Dim NombreArchivo, RutaArchivo As String, uF&
NombreArchivo =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Para no perder tiempo, nuevo Libro en el que importo los Módulos; cambio la variable en el For/Next y listo.
He aprovechado para decirle que ajuste la impresión para que todas la columnas quepan...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba