Save pages range as PDF by input box

gmayor · #4 08-13-2021, 11:14 PM

You can't make up your own syntax. The print to PDF does not support file naming from VBA.
You can save a contiguous range using ExportAsFixedFormat (For a single page enter e.g. 2-2 in the input box) e.g.

Code:

Sub SavePageRangeAsPDF()
Const sPath As String = "C:\Path\"
Dim sRange As String

    sRange = InputBox("Enter the range of pages to be printed eg 1-3")
    If sRange = "" Then
        MsgBox "No pages selected!", vbCritical, "Print Pages"
    End If

    ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=sPath & "Robert.pdf", _
            ExportFormat:=wdExportFormatPDF, _
            Range:=wdExportFromTo, From:=Split(sRange, "-")(0), To:=Split(sRange, "-")(1)
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Save File with specific name from fields input.	PM1	Word	17	10-04-2020 07:22 PM
Drag and Drop into an input range results in #REF! error	DJ0691	Excel	4	02-20-2020 10:16 AM
Auto generate X pages from input	lipatin	Word VBA	12	06-01-2018 12:13 AM
Automatically copy/paste a form field onto new pages, with user input included	Pindar	Word VBA	3	01-13-2017 11:49 AM
Save a range of pages as PDF	gn4619	Word VBA	9	10-27-2015 02:11 PM