You can choose to include frame slides, hidden slides, comments, ink, non-printing information such as Document properties or Document structure tags, in your PDF by selecting the appropriate options. You can also specify the number of slides to appear in Slides per page dropdown box, and modify the order ( Horizontal or Vertical). If you don't want to save slides, but instead only save comments, handouts, or Outline view, under Publish what, select an appropriate option. To save specific slides as PDF, in Slides(s), enter the slide number range in From and To boxes. To save the current slide only as a PDF, under Range, select Current slide. Select Minimum size to make the file smaller (for example, if you want to send it as an e-mail attachment).Ĭlick Options to set how the presentation will appear as a PDF. Optionally, if you want to change what the final PDF file is like, do any of the following:Īt Optimize for, select Standard for higher quality (for example, if you want to print it). If you want it to have a different name, enter it in the File name box. In the Publish as PDF or XPS dialog box, choose a location to save the file to. ' Set Ranges to the new range for the current slide.Click Create PDF/XPS Document, then click Create PDF/XPS. To select multiple images, click on the first one, then hold down the Ctrl key while clicking the other images. ' Set the print options for the active presentation. To convert images into SmartArt graphics: Select the images to be converted to SmartArt. ' Assign lSldNum to the current slide number. ' slide show and then it clears the print range and prints out the ' This code determines what slide is currently visible in the Then there is an option to also print that selected slide with the following function: Sub Print_Active_Slide() This can be changed to a specific slide or range of slides. It basically takes the last slide of the show and exports only that slide to a PDF. If PrintPDF = 6 Then Call Print_Active_Slide PrintPDF = MsgBox("A PDF file of this certificate has been saved to: " & vbCrLf & savePath & vbCrLf & vbCrLf & "Would you like to print a copy also?", vbYesNo, "PDF File Created") 'Prompt user of file location and option to print. SavePath = Environ("USERPROFILE") & "\Desktop\Induction\Certificates\" & Format(timestamp, "yyyymmdd-hhnn") & "_" & FirstNameX & "_" & LastNameX & ".pdf"
'This function saves the last slide as a PDF file with a time stamp and the users name who completed the induction. Most code is courtesy of random parts found on the net and a bit of my own shonky code. Ok, so I finally found the answer after months of searching and thought I would share it here plus some additional info based on what I was trying to achieve.
0 kommentar(er)
