Re: How do I print 100+ .doc from a SINGLE request? sorry for wrong group
Re: How do I print 100+ .doc from a SINGLE request? sorry for wrong group
OK. I tested the macro at that site with XP and WORD 2003 and it works fine
(there's not much to it that can go wrong). This is what I used:
Sub ListDocNamesInFolder()
Dim sMyDir As String
Dim sDocName As String
' The path to obtain the files.
sMyDir = "C:\My Documents\TestFolder\"
sDocName = Dir(sMyDir & "*.DOC")
While sDocName <> ""
' Print the file.
Application.PrintOut FileName:=sMyDir & sDocName
' Get next file name.
sDocName = Dir()
Wend
End Sub
I cut and pasted from the www site to help avoid typing errors. To test it
I set my default printer to a printer that prints to file (shouldn't make a
difference) and then ran it both line by line and just using Run and it
worked OK, creating three print files for the three dummy DOC files I put
into that folder.
To do it line by line choose Step Into and then press F8 to see it progress
through each line. You should be able to hover the mouse over the variable
names to see what they are currently set to (sDocName is the one of
interest). The only problem I can think of is leaving the "\" off the end
of the folder name, but when I tried this it simply exited without doing
anything.
To understand what's happening in the macro you need to know that when first
used DIR (<patthname>) returns the first matching file name, and then DIR()
returns the next matching name until it finally returns a blank name
indicating no more files.
Links to references for the macro language are provided at the bottom of the
page I quoted.
I then powered up the trusty Compaq portable with W98 and WORD 2000. I used
the following macro:
Sub ListDocNamesInFolder()
Dim sMyDir As String
Dim sDocName As String
' The path to obtain the files.
sMyDir = "C:\My Documents\"
sDocName = Dir(sMyDir & "*.DOC")
While sDocName <> ""
' Print the file.
Application.PrintOut FileName: = sDocName
' Get next file name.
sDocName = Dir()
Wend
End Sub
which seems to be the same as the WORD 2003 one, and using the same test
protocol it didn't work.
In fact, the above macro is not the same as the WORD 2003 one, and the
difference is critical. The line in the above macro that is
Application.PrintOut FileName: = sDocName
must be changed to
Application.PrintOut FileName:= sMyDir & sDocName
and then everything's OK. That's because the DIR() function is returning
the file name without the folder name, and the folder needs to be stuck on
the front of it.
I'm guessing the same error in the WORD 97 version will cause the same
problem, but I don't seem to have any machines with W98 and Word 97. I
don't think the behaviour of DIR() has changed over the years. Check which
version of the macro you are using and if necessary make the change noted
above and see what happens.
--
Jeff Richards
MS MVP (Windows - Shell/User)
"Robert A. Macy" <macy@california.com> wrote in message
news:08884fdf-8b9d-4a94-90b9-e33be902d32c@s33g2000pri.googlegroups.com...
Jeff, Gary,
the macro I use is a copy of the one at the URL, with the 'exact' path
in the computer to get me to the folder of .doc files
when I ran the macro in 'debug' mode, nothing happened [I don't know
how to make it step along], just stuck on the first line, the title
line.
Thank you for not flaming me here. I apologize for being in the wrong
group, but you have no idea how hard it is to navigate through the
myriad of usenet groups to find something close to what I need. Plus,
I definitely don't want Word on XP group, they'd just tell me to go
buy another Word software, or something.
For me, since Word is running on Win98, which probably has its own
quirks, I thought someone here might have gone through this and could
just say, "do this..." and I'd be done.
Do either of you have a copy of a macro that you have used
successfully on your Win98 OS? All I would have to do [maybe] is
change the file directory path and it should work.
Is there some literature that describes this macro language and
describes the steps to understand what's happening as the macro steps
along. For example, the phrase
while ( dir() )
[may have misquoted this line, but you have the gist]
Forgot to clarify: this system is Win98 with the application Word 97
another system is WinXP with the application Word 2003 with the
printer on a network.
Robert