tutorial vba pdf
Sub Macro1()
<'
If MsgBox("¿Está seguro de que desea guardar como PDF", vbOKCancel) = vbOK Entonces
ActiveSheet.ExportAsFixedFormat Tipo:=xlTypePDF, Nombre de archivo:=_
"D:\" & Formato(Now(), "aaaammdd-hhmmss") & ".pdf"
Finalizar si
Fin Sub