Para Dante - Como puedo unir en un solo PDF dos o más Hojas de excel
Estimado Dante
Tengo dos hojas de excel el primero de nombre "reportes" y el segundo"informes". Necesito generar un PDF con el contenido de ambas hojas. El contenido de "reportes" tendría que ir en las primeras hojas y en las siguientes el contenido de "informes".
Un detalle, en la hoja "reportes" algunas páginas, en este caso la página 5 con rango A245:J268 lo necesito con orientación horizontal el resto de las páginas esta en sentido vertical. ¿Se podría poner esta página (5) en sentido horizontal al momento de generar el PDF.?
Gracias
1 Respuesta
Respuesta de Dante Amor
1
¡Gracias!
Ya lo resolví
Muchas gracias
Si te sirve, con la siguiente macro se pueden poner varias hojas en un pdf
Seleccionar varias hojas
Private Sub CommandButton1_Click()
'Por.DAM
Dim hoja As Control
For Each hoja In Me.Controls
If Not hoja.Name = "CommandButton1" Then
If hoja.Value = True Then
uf = Sheets(hoja.Caption).Range("A" & Rows.Count).End(xlUp).Row
Sheets(hoja.Caption).PageSetup.PrintArea = "A1:F" & uf
If una Then
Sheets(hoja.Caption).Select Replace:=False
Else
una = True
Sheets(hoja.Caption).Select
End If
End If
End If
Next
nbre = Trim(InputBox(" Registre un Nombre ")) & "_" & Format(Now, "dd-mm-yyyy")
RutaArchivo = "c:\pdf" & "\" & nbre & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
