View Single Post
 
Old 05-30-2018, 04:16 AM
slaycock slaycock is offline Windows 7 64bit Office 2016
Expert
 
Join Date: Sep 2013
Posts: 255
slaycock is on a distinguished road
Default

Quote:

Adjusted as suggested but it's still attempting to print the entire document rather than the inputted page range.

One other issue is that it isn't updating the linked data
Try adding the ranges option to the printout statement. The help for the printout statement isn't entirely clear as both the pages and range option are 'optional'. It doesn't state that ranges must be set if pages is used but its worth a try.

If fields are not updating at print then something is odd. We can try to rectify this by updating fields in the document before printing each copy as in your original code.

Replace the print loop with the following and let us know how you get on.

Code:
    For copy_number = first_copy To last_copy
        With ActiveDocument
            .CustomDocumentProperties(cdp_name) = CStr(copy_number)
            .Fields.Update
            .PrintOut copies:=1, Range:=wdPrintRangeOfPages, pages:=my_form.txtPages.Value
        End With
    Next
I checked this by printing to pdf on on my pc and all works as expected. It may not work for you if your field is in a header or footer.
Reply With Quote