Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Macro error - more help please!
thanks to Trevor for his solution to my question earlier.
"when I use this code to produce the macro the word document is opened, but before it prints I get this error "Word is currently Printing.Quitting will cancle all pending jobs.Do you want to quit ? yes/no" he suggested I put a OnTime command into my code.........how and where do I put this ????? here is the code and help appreciated Sub LP_Tags() 'Dim WDApp As Word.Application 'Dim WDDoc As Word.Document Dim WDApp As Object Dim WDDoc As Object Dim myDocName As String Dim WordWasRunning As Boolean Dim testStr As String myDocName = "s:\lost property master sheets\sheet3.doc" testStr = "" On Error Resume Next testStr = Dir(myDocName) On Error GoTo 0 If testStr = "" Then MsgBox "Word file not found!" Exit Sub End If WordWasRunning = True On Error Resume Next Set WDApp = GetObject(, "Word.Application") If Err.Number < 0 Then Set WDApp = CreateObject("Word.Application") WordWasRunning = False End If WDApp.Visible = True 'at least for testing! Set WDDoc = WDApp.documents.Open(Filename:=myDocName) WDDoc.PrintOut '.printPreview while testing??? WDDoc.Close savechanges:=False If WordWasRunning Then 'leave it running Else WDApp.Quit End If Set WDDoc = Nothing Set WDApp = Nothing End Sub |
#2
|
|||
|
|||
See my response in the original thread.
-- HTH RP (remove nothere from the email address if mailing direct) "Anthony" wrote in message ... thanks to Trevor for his solution to my question earlier. "when I use this code to produce the macro the word document is opened, but before it prints I get this error "Word is currently Printing.Quitting will cancle all pending jobs.Do you want to quit ? yes/no" he suggested I put a OnTime command into my code.........how and where do I put this ????? here is the code and help appreciated Sub LP_Tags() 'Dim WDApp As Word.Application 'Dim WDDoc As Word.Document Dim WDApp As Object Dim WDDoc As Object Dim myDocName As String Dim WordWasRunning As Boolean Dim testStr As String myDocName = "s:\lost property master sheets\sheet3.doc" testStr = "" On Error Resume Next testStr = Dir(myDocName) On Error GoTo 0 If testStr = "" Then MsgBox "Word file not found!" Exit Sub End If WordWasRunning = True On Error Resume Next Set WDApp = GetObject(, "Word.Application") If Err.Number < 0 Then Set WDApp = CreateObject("Word.Application") WordWasRunning = False End If WDApp.Visible = True 'at least for testing! Set WDDoc = WDApp.documents.Open(Filename:=myDocName) WDDoc.PrintOut '.printPreview while testing??? WDDoc.Close savechanges:=False If WordWasRunning Then 'leave it running Else WDApp.Quit End If Set WDDoc = Nothing Set WDApp = Nothing End Sub |
#3
|
|||
|
|||
And see one more response at that thread, too!
Anthony wrote: thanks to Trevor for his solution to my question earlier. "when I use this code to produce the macro the word document is opened, but before it prints I get this error "Word is currently Printing.Quitting will cancle all pending jobs.Do you want to quit ? yes/no" he suggested I put a OnTime command into my code.........how and where do I put this ????? here is the code and help appreciated Sub LP_Tags() 'Dim WDApp As Word.Application 'Dim WDDoc As Word.Document Dim WDApp As Object Dim WDDoc As Object Dim myDocName As String Dim WordWasRunning As Boolean Dim testStr As String myDocName = "s:\lost property master sheets\sheet3.doc" testStr = "" On Error Resume Next testStr = Dir(myDocName) On Error GoTo 0 If testStr = "" Then MsgBox "Word file not found!" Exit Sub End If WordWasRunning = True On Error Resume Next Set WDApp = GetObject(, "Word.Application") If Err.Number < 0 Then Set WDApp = CreateObject("Word.Application") WordWasRunning = False End If WDApp.Visible = True 'at least for testing! Set WDDoc = WDApp.documents.Open(Filename:=myDocName) WDDoc.PrintOut '.printPreview while testing??? WDDoc.Close savechanges:=False If WordWasRunning Then 'leave it running Else WDApp.Quit End If Set WDDoc = Nothing Set WDApp = Nothing End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Playing a macro from another workbook | Excel Discussion (Misc queries) | |||
Date macro | Excel Discussion (Misc queries) | |||
Help with macro formula and variable | Excel Worksheet Functions | |||
Macro and If Statement | Excel Discussion (Misc queries) | |||
Macro Formula revision? | Excel Worksheet Functions |