Printing Current Page or one page in Word 2013 RRS feed

  • Question

  • 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?
    Tuesday, July 14, 2015 6:43 PM


  • 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
        Dim s As String
        If (oSec.Index = 1) Then
            s = pageInSec
            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, _
    End Sub
    You can also refer to this thread about the similar issue:


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

    Hope it's helpful.


    Emi Zhang
    TechNet Community Support

    It's recommended to download and install Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office programs. Please remember to mark the replies as answers if they help, and unmark the answers if they provide no help. If you have feedback for TechNet Support, contact tnmff@microsoft.com.

    Thursday, July 23, 2015 2:24 AM