Print document except first page

macropod · #1 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to print on both sides of a page manually	Guy Roth	PowerPoint	5	03-22-2012 06:43 AM
Background Page color is not covering the entire page when I print the doc	prateekb	Word	4	03-14-2012 01:19 AM
Dont print header on first page	jezh	Word	1	02-01-2012 09:37 AM
Not able to print in a page	cookiegal	Outlook	0	06-02-2011 01:02 AM
Print page one	garon5	Outlook	0	03-07-2007 02:47 PM