Save as PDF using cell value

[Lux Aeterna]

Hello everyone!

Although it has been asked an answered many times, I am not able to do it!

I'd like the active sheet printed as PDF at a specific folder C:\Users\pc50\Desktop\Appointments2022, using either cell value (I2) or that day's date inverted (yyyy-mm-dd), whichever is simpler to use (colleagues are not much used to using computers).

Using the F12 key for that would be ideal, but any other shortcut is ok too.

Thank you in advance and apologies for my incompetence!

 

[RoryA]

Here's a sample macro that you can assign as required:

Sub ExportSheetToPDF()
   Const SAVE_FOLDER As String = "C:\Users\pc50\Desktop\Appointments2022\"
   
   Dim FileName As String
   FileName = Format(Date, "yyyy-mm-dd") & ".pdf"
   
   Dim ws As Worksheet
   Set ws = ActiveSheet
   
   ' delete any existing version first
   If Dir(SAVE_FOLDER & FileName) <> vbNullString Then Kill SAVE_FOLDER & FileName
   
   ' save to PDF
   ws.ExportAsFixedFormat xlTypePDF, SAVE_FOLDER & FileName
End Sub

 

[Lux Aeterna]

Here's a sample macro that you can assign as required:

Sub ExportSheetToPDF()
   Const SAVE_FOLDER As String = "C:\Users\pc50\Desktop\Appointments2022\"
 
   Dim FileName As String
   FileName = Format(Date, "yyyy-mm-dd") & ".pdf"
 
   Dim ws As Worksheet
   Set ws = ActiveSheet
 
   ' delete any existing version first
   If Dir(SAVE_FOLDER & FileName) <> vbNullString Then Kill SAVE_FOLDER & FileName
 
   ' save to PDF
   ws.ExportAsFixedFormat xlTypePDF, SAVE_FOLDER & FileName
End Sub

Thank you for your reply! Where can I copy/paste this macro?

Found the VBA editor. What's the shortcut for it?

 

[Lux Aeterna]

No worries, found how to do it! Thanks a lot!!

 

[Joe4]

Found the VBA editor. What's the shortcut for it?

There are various ways, but ALT+F11 is the keyboard shortcut to get you there.