como puedo imprimir varias hojas en un solo pdf (hojas de pdf no de excel )
Publicado por hugo (6 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
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.PageSetupRuta = 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
0
