I have a document of 20 pages.
Now I want to print a range, as pdf and save in a folder.
To print the whole doc, it works as:
Dim sName As String
Dim sPath As String
With ActiveDocument
sName = Left(.Name, InStr(.Name, ".") - 1)
sName = sName & ".pdf"
sPath = "C:\Users\wardd\Documents\waitingfolder"
.ExportAsFixedFormat _
OutputFileName:=sPath & sName, _
ExportFormat:=wdExportFormatPDF
End With
End Sub
how select a range? eg page 1-6
Ward