Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies
Create VBA Code to convert selected data into pdf from applicant data
| Sub PrintSelectionToPDF() | |||||||||||||
| Dim ThisRng As Range | |||||||||||||
| Dim strfile As String | |||||||||||||
| Dim myfile As Variant | |||||||||||||
| If Selection.Count = 1 Then | |||||||||||||
| Set ThisRng = Application.InputBox("Select a range", "Get Range", Type:=8) | |||||||||||||
| Else | |||||||||||||
| Set ThisRng = Selection | |||||||||||||
| End If | |||||||||||||
| 'Prompt for save location | |||||||||||||
| strfile = "Selection" & "_" _ | |||||||||||||
| & Format(Now(), "yyyymmdd_hhmmss") _ | |||||||||||||
| & ".pdf" | |||||||||||||
| strfile = ThisWorkbook.Path & "\" & strfile | |||||||||||||
| myfile = Application.GetSaveAsFilename _ | |||||||||||||
| (InitialFileName:=strfile, _ | |||||||||||||
| FileFilter:="PDF Files (*.pdf), *.pdf", _ | |||||||||||||
| Title:="Select Folder and File Name to Save as PDF") | |||||||||||||
| If myfile <> "False" Then 'save as PDF | |||||||||||||
| ThisRng.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ | |||||||||||||
| myfile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _ | |||||||||||||
| IgnorePrintAreas:=False, OpenAfterPublish:=True | |||||||||||||
| Else | |||||||||||||
| MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected" | |||||||||||||
| End If | |||||||||||||
|
End Sub Check Spelling mistakes in the workbook using VBA Code
|