Microsoft Office Forums - View Single Post - [Solved] Print document except first page

macropod · 05-05-2012, 03:57 AM

Hi NG,

You still haven't answered my question. Whether your first page is blank makes no difference to the macro - it doesn't care what's on the first page. It simply starts printing at page 2.

Here is a different version that you can try. It should work with any document structure:

Code:

Sub PrintPages2Plus()
With ActiveDocument
  If .ComputeStatistics(wdStatisticPages) > 1 Then
    If .Sections(1).Range.ComputeStatistics(wdStatisticPages) > 1 Then
      .PrintOut Background:=True, Range:=wdPrintFromTo, From:="p2s1", _
        To:="p" & .Sections(.Sections.Count).Range.ComputeStatistics(wdStatisticPages) & "s" & .Sections.Count
    Else
      .PrintOut Background:=True, Range:=wdPrintFromTo, From:="p1s2", _
        To:="p" & .Sections(.Sections.Count).Range.ComputeStatistics(wdStatisticPages) & "s" & .Sections.Count
    End If
  Else
    'your other routine goes here
  End If
End With
End Sub