Botón para imprimir y guardar en PDF
Me gustaría programar un botón para primero imprimir una factura y luego guardarla en PDF pero agregando en el nombre el valor de 2 celdas y un nombre, por ejemplo de esta forma:
Ruta + valor de b13 (matrícula) + valor de g12 (que es la fecha y hora del momento)
1 Respuesta
Te invito a visitar mi canal:
------
Prueba la siguiente macro:
Sub Imprimir_Y_PDF()
'Por Dante Amor
Dim sh As Worksheet
Dim ruta As String, nombre As String
'
Set sh = Sheets("Factura") 'ajusta al nombre de tu hoja
ruta = "C:\trabajo\" 'ajusta al nombre de tu carpeta
nombre = sh.Range("B13").Value & " " & Format(sh.Range("G12").Value, "dd-mm-yyyy hh-mm-ss")
'
sh.PrintOut
sh.ExportAsFixedFormat xlTypePDF, ruta & nombre & ".pdf", xlQualityStandard
End Sub-------------
Recomendaciones:
Cursos de Excel:
https://www.youtube.com/watch?v=w7MYL3wDgH4&t=3s
https://www.youtube.com/watch?v=dy9w9zbkCaw&t=644s
https://www.youtube.com/watch?v=7Xhs04vhrtg&t=188s
---
Cursos de Macros:
https://www.youtube.com/watch?v=PupmVvM16-8&t=1s
https://www.youtube.com/watch?v=f_x8pstpNqc&t=3s
https://www.youtube.com/watch?v=5k0szqErdXg&t=689s
---
Sal u dos Dante Amor
Hola Dante, gracias por la ayuda. El código me imprime bien pero no guarda el archivo en pdf, te mando pantallazos
Activa la grabadora de macros.
Guarda el archivo en pdf en c:\, regresa a detener la grabadora. Revisa el código que generó, lo copias y lo pegas aquí.
También intenta guardar el archivo en una carpeta, es posible que no tengas permiso para guardar en c:\
