Sub PrintSelectionToPDFEDS() Dim invoiceRng As Range Dim pdfile As String Worksheets("Scorecard").Activate 'Setting range to be printed Set invoiceRng = Range("A1:J101") 'setting file name with a time stamp. strfile = "_EDS" & ".pdf" 'setting the fulli qualified name. The resultent pdf will be saved where the main file exists. pdfile = ThisWorkbook.path & "/Operation Scorecard" & strfile invoiceRng.ExportAsFixedFormat Type:=xlTypePDF, _ filename:=pdfile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.