ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _Ī macro ends with this statement. The selected sheets are saved as a pdf file with the name myfile and path myfolder.
myfile = InputBox("Enter file name", "Save as.") The file name is saved in the string variable myfile. The directory is saved in the string variable myfolder.
answer = MsgBox(str, vbYesNo, "Continue with save?") The message box lets you confirm you have selected the correct sheets. str = "Do you want to save these sheets to a single pdf file?" & Chr(10) The selected sheet names are concatenated with a question, Chr(10) is a carriage return. Dim str As String, myfolder As String, myfile As String Variables str, myfolder and myfile are declared data type String. Note, save your workbook with file extension *.xlsm (macro-enabled workbook) to attach the code.Ī macro starts with Sub and then the macro name Sub SaveSelectedSheetsToPDF()
Press with left mouse button on "Module". Press with left mouse button on "Insert" on the top menu, see image above. Start the Visual Basic Editor (Alt+F11). Myfile = InputBox("Enter filename", "Save as.")īack to top 3. Str = "Do you want to save these sheets to a single pdf file?" & Chr(10)įor Each sht In ActiveWindow.SelectedSheetsĪnswer = MsgBox(str, vbYesNo, "Continue with save?") A pdf file is created and opens automatically.īack to top 2.2 VBA code Sub SaveSelectedSheetsToPDF()ĭim str As String, myfolder As String, myfile As String. Press with left mouse button on OK button. A dialog box appears, choose a save folder. Confirm selected sheets by press with left mouse button oning "Yes". To select multiple worksheets press and hold CTRL and then press with left mouse button on with the mouse on the worksheet tabs located at the bottom of your Excel screen. Make sure you select the worksheets you want to save as a single pdf file before you run the macro. How to save specific multiple worksheets to a pdf file programmatically 2.1 How to use the macro? , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _īack to top 2. 'Save all worksheets in workbook to pdf fileĪctiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Myfile = InputBox("Enter file name", "Save as.") 'Ask for a save file name for the pdf file With Application.FileDialog(msoFileDialogFolderPicker) 'Ask for a directory to save the pdf file in 'Select all worksheets in active workbook The following macro saves all worksheets in the active workbook to a single pdf file. Export all worksheets in workbook to PDF programmatically How to save specific multiple worksheets to a pdf file programmaticallyġ. Export all worksheets in workbook to PDF programmatically. How to highlight row of the selected cell programmaticallyĬount text string in all formulas in a worksheet Ĭopy worksheets in active workbook to new workbooksĬreate comment if cell value is larger than column How to create a list of comments from a worksheet programmatically How to save specific multiple worksheets to a pdf file programmatically The hard copy I'm happy for it to work like this but we need for the PDF copy to collate.Multiply numbers in each row with remaining rows in cell range (UDF) MsgBox "Sheet " & rng.Value & " does not exist"Īpplication.Dialogs(xlDialogPrinterSetup).Show Sub Printselection()įor Each rng In Sheets("RA Database").Range("Q6:Q119") At present though when I select a PDF printer it prints but only to multiple PDFs and not one single PDF. I currently have the following code which selects the worksheets and prints them. I want to have a menu page where the user can say yes or no to the title of the worksheet they want and press a button to run a macro which will then select the worksheets which the user has said Y too and then print them to PDF as one single PDF and not loads of individual PDFs. I have an excel workbook in excel 2007 which has approx 110 separate worksheets.
0 kommentar(er)
