Save pages range as PDF by input box

gmayor · #1 08-13-2021, 09:26 PM

You cannot use non-contiguous ranges with ExportAsFixedFormat you would need to use the PDF printer driver to achieve that. e.g.

Code:

Sub PrintAsPDF()
'Graham Mayor - https://www.gmayor.com - Last updated - 14 Aug 2021
Dim sPrinter As String
Dim sRange As String
    On Error GoTo lbl_Exit
    sPrinter = Application.ActivePrinter
    ActivePrinter = "Microsoft Print to PDF"
    sRange = InputBox("Enter the range of pages to be printed eg 1" & vbCr & _
                      "or 1-3" & vbCr & _
                      "or 1-3,6", "Print Pages")
    If sRange = "" Then
        MsgBox "No pages selected!", vbCritical, "Print Pages"
        GoTo lbl_Exit
    End If
    Application.PrintOut FileName:="", _
                         Range:=wdPrintRangeOfPages, _
                         Item:=wdPrintDocumentWithMarkup, _
                         copies:=1, _
                         Pages:=sRange, _
                         PageType:=wdPrintAllPages, _
                         collate:=True, _
                         Background:=False, _
                         PrintToFile:=False, _
                         PrintZoomColumn:=0, _
                         PrintZoomRow:=0, _
                         PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
lbl_Exit:
    Application.ActivePrinter = sPrinter
    Exit Sub
End Sub

RobertDany · #2 08-13-2021, 10:56 PM

Quote:

Originally Posted by gmayor

You cannot use non-contiguous ranges with ExportAsFixedFormat you would need to use the PDF printer driver to achieve that.

Thank you Mr. gmayor for your comment and assistance

Dear gmayor,
I tried to edit your code, in order to save the file automatically under the current folder and name by using the following vars, but I failed (compile error syntax)

Code:

Dim CurrentFolder As String
Dim FileName As String

  myPath = ActiveDocument.FullName
  CurrentFolder = ActiveDocument.Path & "\"
  FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
   InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)
......

 Application.PrintOut FileName:="FileName",

Additionally, I edited my code according to your input box for continuous export but also failed (Invalid procedure or argument):

Code:

Sub SavePageRangeAsPDFffffff()

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:=CurrentFolder & "Robert" & ".pdf", _
     ExportFormat:=wdExportFormatPDF, _
     range:=sRange

End Sub

So I will be so appreciative for solving these two problems
Thank you again

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