Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies

https://drive.google.com/file/d/1NalgUDfYwjZv2wLdImJDyFRpFMy5RRH6/view

I HAVE A OLDER VERSION OF EXCEL SO HERE AM WRITING THE CODE

CREATE VBA CODE TO CONVERT SELECTED DATA INTO PDF FROM APPLICANT DATA

ANS.sub print selection TOPDF()

Di This Rng As Range

DIm strfile As String

Dim myfile As Variant

if Selection.count=1Then

set ThisRng=

Application.inputox("Select a range","Get RAnge",Type:=8)

Elseif

strifile="Select"&"_"_

&Format (Now(),"YYYYmmdd_hhmmss")

_

&"PDF"

strfile=ThisWorkbook.path&"\"&strfile

myfile=Application.GetSAveAs Filename

-

(initialFileName:=strfile

FileFilter:="PDFFiles(*.Pdf),*.Pdf,_

Title:="SelectFolderand File NAme to save as PDF")

if myfile<>"FAlse"Then

ThisRng.ExportAsFixedFormat

Type:=xltypePDf,filename:=

myfile,Quallity:=xlQualityStandard,

includeDocProperties:=Ttrue,_

IgnorePrintArea:=FAlse,

OpenAfterPulish:=True

Else

MsBox"NoFileSelected.PDFwillnot be saved",vboKonly,"No FileSelected"

End if

End su