Excel - como puedo imprimir varias hojas en un solo pdf (hojas de pdf no de excel )

 
Vista:
sin imagen de perfil
Val: 5
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

como puedo imprimir varias hojas en un solo pdf (hojas de pdf no de excel )

Publicado por hugo (2 intervenciones) el 11/02/2020 13:38:27
buenos dias tengo una seleccion para guardar como pdf como la que se muestra en la imagen que adjunte en la parte superior derecha remarcado con negro tengo la una celda al cambiar el valor ej "1" me muestra los datos de la persona numero 1 en la lista

con una macro voy cambiando este valor dependiendo de la cantidad de personas, cada vez que cambia el me trae los datos me y me los guarda como pdf si ahy 10 personas me guarda 10 archivos como pdf

hasta funciona perfecto

lo que me gustaria es poder guardar las 10 personas en un solo pdf con 10 paginas

para lo cual pense en un array pero no pude armarlo para que funcionara

para los pdf uso la funcion simple y clasica de los pdf

adjunto la macro que genera los pdf

esto esta dentro de un bucle for

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
43
44
inicio = "A10"
fin = Range("AD7")
 
ActiveSheet.Unprotect ""
        Columns("G").EntireColumn.Hidden = True
        Columns("P:R").EntireColumn.Hidden = True
        Columns("s").EntireColumn.Hidden = False
ActiveSheet.Protect Password:="", _
    DrawingObjects:=False, _
    Contents:=True, _
    Scenarios:=False, _
    AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, _
    AllowFormattingRows:=True, _
    AllowInsertingColumns:=False, _
    AllowInsertingRows:=False, _
    AllowInsertingHyperlinks:=False, _
    AllowDeletingColumns:=False, _
    AllowDeletingRows:=False, _
    AllowSorting:=True, _
    AllowFiltering:=True, _
    AllowUsingPivotTables:=True
    ThisWorkbook.Protect Password:=""
 
             With ActiveSheet.PageSetup
                Ruta = ThisWorkbook.Path
                Ruta = Ruta & "\pdf " & Range("D2") & " hij " & Range("D3") & " VIGENTE " & "(" & NombreArchivo & ")\"
                Titulo = ActiveWorkbook.Name
        ' la siguiente linea da formato de pdf
           With ActiveSheet.PageSetup
           .PrintTitleRows = "$1:$9"
        .PrintTitleColumns = ""
        .Orientation = xlLandscape
        .CenterHorizontally = False   'centrada horizontal y verticalmente
       .CenterVertically = False
        'ajuste totalidad de la hoja , 1 de alto x 1 de ancho
       .FitToPagesTall = 100 'ajuste las paginas de alto
       .FitToPagesWide = 1  'ajuste las paginas de ancho
       .Zoom = False 'obligatario en turnos genera error
 
   End With
 
            ActiveSheet.PageSetup.PrintArea = inicio & ":" & fin
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:=xlQualityMinimum
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 Dirk
Val: 658
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

como puedo imprimir varias hojas en un solo pdf (hojas de pdf no de excel )

Publicado por Dirk (166 intervenciones) el 11/02/2020 20:15:05
Hola Hugo, se me ocurren 2 formas de hacer esto:
1.- crear tantas hojas de excel como personas, seleccionar las 10 hojas, exportarlas como pdf y borras las 10 hojas creadas o...
2.- en otra hoja pegar el formato, llenarlo con los respectivos datos e insertar el final un salto de página, luego vuelves a pegar el formato, llenarlo con los datos e insertar otro salto de página y así sucesivamente... luego seleccionas todo y exportas a pdf

De las 2 formas creo que la 2da es la mejor, imagina seleccionar 80 hojas y exportarlas a pdf... mientras que por el otro lado tienes que exportar una hoja con 80 páginas....

No he hecho ninguno de los 2 procedimientos... pero puede servir...

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
sin imagen de perfil
Val: 5
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

como puedo imprimir varias hojas en un solo pdf (hojas de pdf no de excel )

Publicado por hugo (2 intervenciones) el 11/02/2020 20:45:01
gracias por la respuesta

habia pensado en ambas posibilidades pero para ser sincero esperaba poder hacerlo almacenando la informacion dentro de una macro o en la memoria para no colocar la informacion a la vista dado que la macro puede fallar y dejar la informacion a medio cargar a la vista de todos

pensaba en algun array pero no no supe organizarlo para poder lograrlo
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