If I want to print the current page in a WORD document, ad PDF file and save it to the folder c:\folder\, the macro that works fine is easy to program (see under).
Now I want to print 2 pages, the page where my cursor is in the word document + the following page.
So these two pages have to be saved as pdf file.
How do I do this?
Thanks. (Edward).

Sub print_this_page_to_pdf_in_folder()
Dim sName As String
Dim sPath As String
With ActiveDocument
sName = Left(.Name, InStr(.Name, ".") - 1)
sName = sName & ".pdf"
sPath = "C:\folder"

.ExportAsFixedFormat _
OutputFileName:=sPath & sName, _
ExportFormat:=wdExportFormatPDF, _
Range:=wdPrintCurrentPage
End With
End Sub