Two MailMerge Print Jobs when there should be only one. VBA in Excel.

Does anyone know why this code sends two print jobs when run? The first print job is the template only... it shows the <<FIELDS>> instead of the data substitutes - <<NAME>> instead of Bob Smith. The second job follows immediately and prints the merge correctly. Is there a way to avoid wasting the extra sheet of paper for every time this gets run?

'*******Print the MailMerge*******'
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        Dialogs(wdDialogFilePrint).Show
        .Execute Pause:=False
    End With
'*********************************'

=====================The whole picture=================
Sub WordUp()
'=====================================
' WordUp Macro
'=====================================
' Purpose: Perform the MSWord MailMerge from this Macro
' Created: 4/25/06, Beau Holder
' Last Modified: 5/1/06 10:49am - Broke up longer lines to improve readability
'                               - changed directory to where the MailMerge Template is
'=====================================
'*******DECLARE VARIABLES*******'
    Dim appWd As Word.Application
    Dim WdDoc As Word.Document
    Dim sFile As String
'*******************************'
'*******Setup the Word application object*******'
    On Error Resume Next
        Set appWd = GetObject(, "Word.Application")
    If appWd Is Nothing Then
        Set appWd = GetObject("", "Word.Application")
    End If
    On Error GoTo 0
    sFile = fGetFilePath
'***********************************************'
'*******MailMerge Happens here*******'
    With appWd
        .Visible = True
        Set WdDoc = .Documents.Open(Filename:="c:\Doc.doc")
        ActiveDocument.MailMerge.OpenDataSource Name:=sFile, ConfirmConversions:=False, _
            ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", _
            Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
            "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=sFile;" & _
            "Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";" & _
            "Jet OLEDB:Registry", SQLStatement:="SELECT * FROM `data`", SQLStatement1:="", _
            SubType:=wdMergeSubTypeAccess
    End With
'************************************'
'*******Print the MailMerge*******'
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        Dialogs(wdDialogFilePrint).Show
        .Execute Pause:=False
    End With
'*********************************'
'*******Close the document now that the merge is done and quit Word*******'
    ActiveDocument.Close SaveChanges:=True
    appWd.Quit
'*************************************************************************'
'*******CLEAR OUT WORD OBJECTS*******'
    Set appWd = Nothing
    Set WdDoc = Nothing
'************************************'
End Sub

Thanks in advance.