If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Batch print not working
Hi. I used to be able to print a considerable (about 100) number of separate
doc files by selecting them all and right-clicking and selecting print, but this has stopped working. When I do that now, the icon changes to an hourglass for about 3 seconds but then it goes back to an arrow and nothing happens. Nothing has changed with the computer or the printer. I can print single doc files fine. Any ideas why this happened and any ideas of how to fix it? Or, I guess, any recommendations for a batch print program? |
#2
|
|||
|
|||
Batch print not working
Printing in the manner described is not something I have ever had cause to
do so I don't know when or why the behaviour changed - however you can print out all the documents in a selected folder using the following macro: http://www.gmayor.com/installing_macro.htm Sub BatchProcess() Dim strFilename As String Dim strPath As String Dim oDoc As Document Dim fDialog As FileDialog Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) With fDialog .Title = "Select folder and click OK" .AllowMultiSelect = False .InitialView = msoFileDialogViewList If .Show -1 Then MsgBox "Cancelled By User", , _ "List Folder Contents" Exit Sub End If strPath = fDialog.SelectedItems.Item(1) If Right(strPath, 1) "\" _ Then strPath = strPath + "\" End With If Documents.Count 0 Then Documents.Close SaveChanges:=wdPromptToSaveChanges End If If Left(strPath, 1) = Chr(34) Then strPath = Mid(strPath, 2, Len(strPath) - 2) End If strFilename = Dir$(strPath & "*.doc") While Len(strFilename) 0 Set oDoc = Documents.Open(strPath & strFilename) oDoc.PrintOut oDoc.Close SaveChanges:=wdSaveChanges strFilename = Dir$() Wend End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Tony" wrote in message news Hi. I used to be able to print a considerable (about 100) number of separate doc files by selecting them all and right-clicking and selecting print, but this has stopped working. When I do that now, the icon changes to an hourglass for about 3 seconds but then it goes back to an arrow and nothing happens. Nothing has changed with the computer or the printer. I can print single doc files fine. Any ideas why this happened and any ideas of how to fix it? Or, I guess, any recommendations for a batch print program? |
#3
|
|||
|
|||
Batch print not working
Thanks, Graham.
"Graham Mayor" wrote: Printing in the manner described is not something I have ever had cause to do so I don't know when or why the behaviour changed - however you can print out all the documents in a selected folder using the following macro: http://www.gmayor.com/installing_macro.htm Sub BatchProcess() Dim strFilename As String Dim strPath As String Dim oDoc As Document Dim fDialog As FileDialog Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) With fDialog .Title = "Select folder and click OK" .AllowMultiSelect = False .InitialView = msoFileDialogViewList If .Show -1 Then MsgBox "Cancelled By User", , _ "List Folder Contents" Exit Sub End If strPath = fDialog.SelectedItems.Item(1) If Right(strPath, 1) "\" _ Then strPath = strPath + "\" End With If Documents.Count 0 Then Documents.Close SaveChanges:=wdPromptToSaveChanges End If If Left(strPath, 1) = Chr(34) Then strPath = Mid(strPath, 2, Len(strPath) - 2) End If strFilename = Dir$(strPath & "*.doc") While Len(strFilename) 0 Set oDoc = Documents.Open(strPath & strFilename) oDoc.PrintOut oDoc.Close SaveChanges:=wdSaveChanges strFilename = Dir$() Wend End Sub -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Tony" wrote in message news Hi. I used to be able to print a considerable (about 100) number of separate doc files by selecting them all and right-clicking and selecting print, but this has stopped working. When I do that now, the icon changes to an hourglass for about 3 seconds but then it goes back to an arrow and nothing happens. Nothing has changed with the computer or the printer. I can print single doc files fine. Any ideas why this happened and any ideas of how to fix it? Or, I guess, any recommendations for a batch print program? . |
Thread Tools | |
Display Modes | |
|
|