In the modern business world, PDF is the gold standard for sharing reports, invoices, and dashboards. While Excel’s manual "Save as PDF" works fine for one-off tasks, it becomes a bottleneck when you need to generate dozens (or hundreds) of PDFs daily.
Sub ExportRangeToPDF() Dim rng As Range Dim filePath As String 'Define the range (e.g., A1:F20) Set rng = ThisWorkbook.Sheets("SalesData").Range("A1:F20") filePath = "C:\PDF Reports\SalesSummary.pdf" excel vba print to pdf and save
'Export ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=filePath MsgBox "Invoice PDF saved as: " & filePath End Sub This is ideal for creating individual PDFs for each department or region in a workbook. In the modern business world, PDF is the
'Get values from cells invoiceNum = ws.Range("B5").Value customerName = ws.Range("B6").Value customerName = Replace(customerName, " ", "_") 'Remove spaces 'Get values from cells invoiceNum = ws
'Check if folder exists; if not, create it If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If
Sub SaveEachSheetAsPDF() Dim ws As Worksheet Dim folderPath As String 'Create a folder (adjust as needed) folderPath = "C:\PDF Reports\AllSheets\"