A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Word » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Batch print not working



 
 
Thread Tools Display Modes
  #1  
Old June 3rd, 2010, 07:52 PM posted to microsoft.public.word.docmanagement
Tony
external usenet poster
 
Posts: 593
Default 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  
Old June 4th, 2010, 06:03 AM posted to microsoft.public.word.docmanagement
Graham Mayor
external usenet poster
 
Posts: 18,297
Default 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  
Old June 4th, 2010, 03:58 PM posted to microsoft.public.word.docmanagement
Tony
external usenet poster
 
Posts: 593
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 08:56 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.