SaveLocation = "C:\Users\marks\Documents\myPDFFile.pdf" These options can be flexed to meet your requirements.
EXCEL VBA PROGRAMMING PDF HOW TO
The code below demonstrates how to use all the options within a single macro. If Excluded, will start from the first page IgnorePrintAreas:= False 'Set the output quality of the created document - options are
EXCEL VBA PROGRAMMING PDF PDF
IncludeDocProperties:= True 'Does the created PDF adhere to the Print Areas already set in the OpenAfterPublish:= False 'Include the Excel document properties into the PDF - options are True / False When using ExportAsFixedFormat there are other optional settings available: 'Open the document after it is saved - options are True / False 'Loop through all charts abd save as individual PDF in same folder 'as the Excel file For Each chtObj In ws.ChartObjectsĬ Type:=xlTypePDF, _įilename:=ThisWorkbook.Path & "/" & chtObj.Name & ".pdf" 'Create and assign variables Dim chtObj As ChartObject The following code loops through each chart on the active sheet and saves each as a separate PDF. 'Loop through each selected worksheet For Each ws In sheetArray Sub LoopSelectedSheetsSaveAsPDF()ĭim sheetArray As Variant 'Capture the selected sheets Set sheetArray = ActiveWindow.SelectedSheets The following macro loops through the selected worksheets in the active workbook and saves each as its own PDF.
Next End Sub report this ad Loop through selected sheets Ws.ExportAsFixedFormat Type:=xlTypePDF, _įilename:=ThisWorkbook.Path & "/" & ws.Name & ".pdf" 'Loop through all worksheets and save as individual PDF in same folder 'as the Excel file For Each ws In ActiveWorkbook.Worksheets The following macro loops through each worksheet in the active workbook and saves each as its own PDF. To save multiple PDFs quickly, we can use VBA to loop through sheets or charts and save each. 'Select specific sheets from workbook, the save all as PDFĮnd Sub Looping and saving as separate PDFs 'Create and assign variables Dim saveLocation As String Dim sheetArray As Variant The following code selects multiple worksheets from an array before saving the PDF. If more than one worksheet is active, the PDF created will include all the active sheets. Selecting specific worksheets before saving as PDF It may be necessary to include file handling procedures to prevent overwriting existing documents and handle errors.
While the Filename property is optional, it is important if we want to know where the file has been saved and what it’s called. 'Alternative using the active chart 'Set cht = ActiveChart 'Save a chart as PDFĬht.ExportAsFixedFormat Type:=xlTypePDF, _ Set cht = Sheets("Sheet3").ChartObjects("Chart 1").Chart 'Create and assign variables Dim saveLocation As String Dim cht As Chart The VBA code below saves a specified chart as a PDF. Rng.ExportAsFixedFormat Type:=xlTypePDF, _ 'Create and assign variables Dim saveLocation As String Dim rng As Range The macro below saves a specified range as a PDF. Selection.ExportAsFixedFormat Type:=xlTypePDF, _ The following code saves only the selected cells. Sometimes, we only want to save a small part of a worksheet to a PDF.
Sub SaveActiveWorkbookAsPDF()ĪctiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ To save all the sheets from a workbook use the following macro. SaveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"ĪctiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ 'Create and assign variables Dim saveLocation As String The following code saves the selected sheets as a single PDF. From a VBA perspective, it is the ExportAsFilxedFormat method combined with the Type property set to xlTypePDF that creates a PDF. This section contains the base code to save Excel as PDF from different objects (workbooks, worksheets, ranges and charts). Conclusion Saving Excel workbooks, sheets, charts and ranges as PDF.Selecting specific worksheets before saving as PDF.Saving Excel workbooks, sheets, charts and ranges as PDF.
0 kommentar(er)
