Prev: setup Windows Mail as Word 2003 default emailer
Next: Does microsoft have a template for 10-11 academic year calendar ?
From: Tony on 3 Jun 2010 14:52
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?


From: Graham Mayor on 4 Jun 2010 01:03
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" <Tony(a)discussions.microsoft.com> wrote in message
news:D89854F6-9CA0-44E7-B0C1-478FD6252D5C(a)microsoft.com...
> 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?
>
>


From: Tony on 4 Jun 2010 10:58
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" <Tony(a)discussions.microsoft.com> wrote in message
> news:D89854F6-9CA0-44E7-B0C1-478FD6252D5C(a)microsoft.com...
> > 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?
> >
> >
>
>
> .
>
 | 
Pages: 1
Prev: setup Windows Mail as Word 2003 default emailer
Next: Does microsoft have a template for 10-11 academic year calendar ?