When trying to print a page other than the first page of a document, all that prints is the first page. A work around is to print the page number for the numbered pages, i.e., page 5 which is actually the 6th page of the document, since the first page is a table of contents and, therefore, not numbered. However, when trying to reprint one page of the appendices which are not numbered and are at the end of the document, it will not work. Only the first page, the table of contents, prints. The only way to print these pages is to print the entire document to get only one or two pages. This is a tremendous waste of paper as our reports are usually 40-50 pages and we need upwards of 7 reports normally.  We have reinstalled the drivers, re-built the profiles, and tried everything possible.  There has to be a bug in Word, although it worked fine when we switched over to Word 2013.  Perhaps one of the patches created this problem.  Does anyone have a fix that does not include creating a text file or removing the needed pages from the original document?

Hi thowie,

Based on your description, did you mean the "Print Current Page" option in Word 2013 only prints page 1?

And I find a workaround about this issue is to use following code:

Sub PrintCurrentPage()

Dim page As String
Dim pageInSec As Integer

page = ActiveDocument.Bookmarks("\page").Range.Information(wdActiveEndPageNumber)
pageInSec = ActiveDocument.Bookmarks("\page").Range.Information(wdActiveEndAdjustedPageNumber)

MsgBox "page is " & page

Dim endOfSec As Integer
Dim oSec As Section
Dim firstPageInSec As Integer
For Each oSec In ActiveDocument.Sections
    endOfSec = oSec.Range.Information(wdActiveEndPageNumber)
    If (endOfSec >= page) Then GoTo Out
Next
Out:
    Dim s As String
    If (oSec.Index = 1) Then
        s = pageInSec
    Else
        s = ("p" & pageInSec & "s" & oSec.Index)
    End If
    MsgBox s
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:=s, PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

End Sub

You can also refer to this thread about the similar issue:

https://social.technet.microsoft.com/Forums/office/en-US/16b1d0be-54c6-400d-b902-d8bda587695b/word-2013-print-current-page-always-prints-page-one?forum=officeitpro

You can try this method and check if it works for you.

Hope it's helpful.

Regards,

Emi Zhang
TechNet Community S