Excel Closes, But Word Doesn't! And Word Won't Print!

Hello:
   My code needs to open Excel, populate a table with data, mail-merge that table with a Word document, and finally print the merged documents. I have two problems:

1) As the program finishes, Excel closes and is removed from the Task Manager's Processes list, but Word is not removed. I've tried the .Quit method for both (even accounting for Word's use of parameters), but "WINWORD.EXE" remains on the list even after "EXCEL.EXE" is removed. I also set my objects to Nothing in Class_Terminate, but still no luck - and putting the .Close/.Quit procedures under Class_Terminate gave me an error. I know Excel is working because the program is saving my .xls files, but I'm not sure about Word. Which leads to...

2) Obviously I'm only opening Word to merge the file - the text of the document itself never changes so it doesn't need to be saved, just linked to the data source (the Excel table just created). But I can't get Word to print! I set the .ActivePrinter property and used .PrintOut but no luck. What do I have wrong here? Thanks for any insight.

Jeff W.
Owen, Little and Assoc., Inc.
Beachwood, NJ

P.S. This code runs from within ArcMap, a digital-mapping software package. Hence all of the "ICommand"s and "IMap"s and such, the use of "ISelectionSet" to populate the Excel table, etc. All of the code pertaining to ArcMap works fine - it's mostly just the part at the end of the code relating to Word where there must be something I'm doing wrong.

Code:Option Explicit

Implements ICommand

Private m_pApp As IApplication                                         
Private m_pMxDoc As IMxDocument
Private m_pMap As IMap
Private m_pExt As IExtension
Private m_pFeature As IFeature
Private m_pFeatureLayer As IFeatureLayer
Private m_pFeatureCursor As IFeatureCursor
Private m_pFeatureSelection As IFeatureSelection
Private m_pSelectionSet As ISelectionSet
Private m_pFields As IFields
Private m_pField As IField
Private m_pRow As IRow
Private m_pCursor As ICursor
Private m_pQBLayer As IQueryByLayer
Private m_pBitmap As IPictureDisp

Private m_pAppExcel As New Excel.Application
Private m_pWorkbook As Excel.Workbook
Private m_pWorksheet As Excel.Worksheet

Private m_pAppWord As New Word.Application
Private m_pDocument As New Word.Document
Private m_pMailMerge As MailMerge

Private Sub Class_Initialize()
   Set m_pBitmap = LoadResPicture(101, vbResBitmap)         'Button icon
End Sub

Private Sub Class_Terminate()
   Set m_pApp = Nothing
   Set m_pMxDoc = Nothing
   Set m_pMap = Nothing
   Set m_pExt = Nothing
   Set m_pFeature = Nothing
   Set m_pFeatureLayer = Nothing
   Set m_pFeatureCursor = Nothing
   Set m_pFeatureSelection = Nothing
   Set m_pSelectionSet = Nothing
   Set m_pFields = Nothing
   Set m_pField = Nothing
   Set m_pRow = Nothing
   Set m_pCursor = Nothing
   Set m_pQBLayer = Nothing
   Set m_pBitmap = Nothing

   Set m_pAppExcel = Nothing
   Set m_pWorkbook = Nothing
   Set m_pWorksheet = Nothing

   Set m_pAppWord = Nothing
   Set m_pDocument = Nothing
   Set m_pMailMerge = Nothing
End Sub
'
'ICommand members
'
Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE
   ICommand_Bitmap = m_pBitmap
End Property

Private Property Get ICommand_Caption() As String
   ICommand_Caption = "200' List"
End Property
 
Private Property Get ICommand_Category() As String
   ICommand_Category = "Extending ArcObjects"
End Property

Private Property Get ICommand_Checked() As Boolean
   ICommand_Checked = False
End Property

Private Property Get ICommand_Enabled() As Boolean
   ICommand_Enabled = True
End Property

Private Property Get ICommand_HelpContextID() As Long

End Property

Private Property Get ICommand_HelpFile() As String

End Property

Private Property Get ICommand_Message() As String
   ICommand_Message = "Creates a 200' list for selected property and generates an Excel file (for mail merge)"
End Property
 
Private Property Get ICommand_Name() As String
   ICommand_Name = "ExtendingArcObjects_200FootList"
End Property
 
Private Property Get ICommand_Tooltip() As String
   ICommand_Tooltip = "Create a 200' list"
End Property

Private Sub ICommand_OnCreate(ByVal hook As Object)
   Dim a As New UID
   
   Set m_pApp = hook
   a.Value = "CmdToolbarExt.clsLaunchExtension"
   Set m_pExt = m_pApp.FindExtensionByName("200FootListExtension")
End Sub

Private Sub ICommand_OnClick()             ''MAIN BUTTON
   Dim a As Long              'Field (i.e. column) value
   Dim b As Long             'b-d: counters
   Dim c As Long
   Dim d As Long
   Dim lMaxSize(8) As Long             'Width of each field
   Dim sValue As String             'Current record's value (string)
   Dim lHolder As Long             'Temp. field width value
   Dim sFieldName(8) As String
   Dim sBlock As String
   Dim sLot As String
   Dim sFirstRecord As String              'Holds IDNum of 1st selected record
   Dim sFileName As String
   
   sFieldName(0) = "IDNum"
   sFieldName(1) = "Block"
   sFieldName(2) = "Lot"
   sFieldName(3) = "FULLNAME"
   sFieldName(4) = "ADDRESS"
   sFieldName(5) = "CITY"
   sFieldName(6) = "STATE"
   sFieldName(7) = "ZIP"
   sFieldName(8) = "PROPLOC"
   
   Set m_pMxDoc = m_pApp.Document
   Set m_pMap = m_pMxDoc.FocusMap
   Set m_pFeatureLayer = m_pMxDoc.FocusMap.Layer(0)         '!!Change to reflect name
   Set m_pFeatureSelection = m_pFeatureLayer         ' of parcel layer!!
   Set m_pCursor = m_pFeatureLayer.Search(Nothing, False)
                                                      
                                                                            'Create Excel file name
   Call m_pFeatureSelection.SelectionSet.Search(Nothing, False, m_pFeatureCursor)
   Set m_pFeature = m_pFeatureCursor.NextFeature
   sFirstRecord = "Block" & m_pFeature.Value(m_pFeature.Fields.FindField("Block")) & "Lot" & _
                  m_pFeature.Value(m_pFeature.Fields.FindField("Lot"))
   
   Set m_pQBLayer = New QueryByLayer
   
   With m_pQBLayer             'Select all parcels within 200 feet
      Set .ByLayer = m_pFeatureLayer             ' of the selected parcel
      Set .FromLayer = m_pFeatureLayer
      .BufferDistance = 200
      .BufferUnits = esriFeet
      .ResultType = esriSelectionResultAdd
      .LayerSelectionMethod = esriLayerSelectWithinADistance
      .UseSelectedFeatures = True
      Set m_pFeatureSelection.SelectionSet = .Select
   End With

   Set m_pSelectionSet = m_pFeatureSelection.SelectionSet
   Call m_pSelectionSet.Search(Nothing, False, m_pCursor)

   Set m_pFields = m_pCursor.Fields
   Set m_pRow = m_pCursor.NextRow

   m_pMxDoc.ActiveView.Refresh
 
'*******************************mostly ArcMap code above this line************
'*******************************mostly VBA code below this line***************
                                                     
   Set m_pAppExcel = CreateObject("excel.application")         'Create Excel instance
   Set m_pWorkbook = m_pAppExcel.Workbooks.Add         'Create workbook/worksheet
   Set m_pWorksheet = m_pWorkbook.Sheets.Add(After:=m_pWorkbook.Sheets(m_pWorkbook.Sheets.Count))
   
   Cells(1, 1).Value = "IDNumber"             'Field names
   Cells(1, 2).Value = "Block"
   Cells(1, 3).Value = "Lot"
   Cells(1, 4).Value = "Name"
   Cells(1, 5).Value = "Address"
   Cells(1, 6).Value = "City"
   Cells(1, 7).Value = "State"
   Cells(1, 8).Value = "ZIP"
   Cells(1, 9).Value = "Property Loc."
   
   m_pAppExcel.DisplayAlerts = False             'Kill first three sheets
   Worksheets("Sheet1").Delete
   Worksheets("Sheet2").Delete
   Worksheets("Sheet3").Delete
   m_pAppExcel.DisplayAlerts = True
   m_pWorksheet.Activate
   m_pWorksheet.Name = "200 Foot List"
   m_pWorksheet.Rows(1).Font.Bold = True
   
   c = 1
   d = 1
   
   Do While Not m_pRow Is Nothing             'Grab values from selection set
      c = c + 1
      
      For b = 0 To 8
         a = m_pFields.FindField(sFieldName(b))
         m_pWorksheet.Cells(c, d).Value = m_pRow.Value(a)         'Write value to record
         sValue = m_pRow.Value(a)
         
         If c = 2 Then             'Find the longest entry in each field
            lMaxSize(b) = Len(sValue)
         Else
            lHolder = Len(sValue)
            
            If lHolder > lMaxSize(b) Then
               lMaxSize(b) = lHolder
            End If
            
         End If
         
         d = d + 1
      Next b
      
      Set m_pRow = m_pCursor.NextRow
      d = 1
   Loop
                                                      
   If lMaxSize(0) < 10 Then lMaxSize(0) = 10         'Minimum widths for fields
   If lMaxSize(1) < 6 Then lMaxSize(1) = 6
   If lMaxSize(2) < 4 Then lMaxSize(2) = 4
   If lMaxSize(3) < 6 Then lMaxSize(3) = 6
   If lMaxSize(4) < 8 Then lMaxSize(4) = 8
   If lMaxSize(5) < 4 Then lMaxSize(5) = 4
   If lMaxSize(7) < 6 Then lMaxSize(7) = 6
   If lMaxSize(8) < 13 Then lMaxSize(8) = 13
                                                      
   m_pWorksheet.Columns("A").ColumnWidth = lMaxSize(0)         'Set field widths
   m_pWorksheet.Columns("B").ColumnWidth = lMaxSize(1)
   m_pWorksheet.Columns("C").ColumnWidth = lMaxSize(2)
   m_pWorksheet.Columns("D").ColumnWidth = lMaxSize(3)
   m_pWorksheet.Columns("E").ColumnWidth = lMaxSize(4)
   m_pWorksheet.Columns("F").ColumnWidth = lMaxSize(5)
   m_pWorksheet.Columns("G").ColumnWidth = lMaxSize(6)
   m_pWorksheet.Columns("H").ColumnWidth = lMaxSize(7)
   m_pWorksheet.Columns("I").ColumnWidth = lMaxSize(8)
   
   sFileName = "C:200FootList_" & sFirstRecord & ".xls"
   
   Call m_pWorksheet.SaveAs(sFileName)         'Save Excel file (for this instance)
   m_pAppExcel.DisplayAlerts = False
   Call m_pWorksheet.SaveAs("C:200FootListMerger.xls")         'Save dummy copy of Excel file
   m_pAppExcel.DisplayAlerts = True             ' for mail merge (always overwrites)
   Call m_pWorkbook.Close
   Call m_pAppExcel.Application.Quit             'Quit Excel
   
   Set m_pAppWord = CreateObject("word.application")         'Create Word instance
   m_pAppWord.ActivePrinter = "\DellserverSHARP407 on Ne04:"

                                                                            'Open document for mail merge
   Set m_pDocument = m_pAppWord.Documents.Open("C:MailMerge.doc")

   Call m_pDocument.MailMerge.OpenDataSource("C:200FootListMerger.xls")
   m_pDocument.MailMerge.Destination = wdSendToNewDocument
   m_pDocument.MailMerge.Execute

   Call m_pDocument.PrintOut             'Print letters
   Call m_pDocument.Close
   Call m_pAppWord.Application.Quit(False)             'Quit Word
End Sub

• Ms Word 97: Printing In The Background While Word Saves And Closes.
• When Word Closes
• How To Print A Ms Word,excel, Using VB?
• How To Catch When Word Closes
• Print Envelopes In Word From Excel
• How To Capture When Word Or Office App Closes
• Word VBA / Macro Problem With Print && Browser (Word 2000)
• How To Print An Embeded Word Document In Excel?
• Word - Unloading A Moduile When Document Closes
• Extract Each Word From A String And Print One Word Per Line.
• Detecting If Excel And Word Has Finished Their Print Jobs
• Make Word Document Active And Print From Excel Macro
• How To Print Word/Excel File Direct To Printer Without Opening That Fi
• Merging/Importing Word, Excel, Powerpoint And Visio Files Into A Word Document
• Merging Word, Excel, Powerpoint And Visio Files Into A Word Document
• Opening A Word Document With Word From Excel
• [Excel && Word] Quit Without Saving A Word .doc From Excel
• Word VBA - Data From Excel To Word Doc
• Word Automation Compiled On XP Doesn't Work On 98
• Word -&gt; Visual Basic (Listbox Doesn't Go)
• Remove All The Lines Of Text Wich Doesn’t Contain A Word .
• Merge Word Files And Print To PDF Print
• WORD Doc - SaveAs Doesn't Destroy The Original Temp File
• VBA Styles Statement Hangs Word 97 But Doesn't 2000/2002/2003
• How To Read MS Word File To RTB And Edit It And Save It? The Rtb Control Doesn't Seem To Work. I Am
• Opening Word Document From Excel When The Word Document Is Read Only
• Text Driven Query Doesn't Return Records Where Criteria Is First/Last Word In Record.
• Print To Word
• Vb _ Ms Word Print
• Word Does Not Print
• Print Word Doc...
• Print In Word
• Can You Print A Word Doc From A Web App?
• Won't Print File {Word}
• Word XP Label Print From VB6?
• How To Print Lables From Word
• Print 1 To Many In A Word Document
• Print And Format Through Word. HELP??
• Do Not Print Buttons In Word
• Can't Print And Close Word Right After
• How Do I Print A Word.doc From My VB6 Project?
• How Does MS Word Print To File?
• Print Word Document Using VBA
• VB6 Word Print [*Resolved*]
• MS Word Print Error
• How To Print Word Documents?
• Print To Word Document
• Print An MS Word Document
• Print Preview Of A Word Doc...