[BobGOKC]

I need to print about 10-20 pdf files in a specific folder as needed. I'm running WinXP Pro and thought I could drag the files onto a printer icon on the desktop, but this doesn't work. I'd prefer to have a simple program or batch file which would print all the pdf files in the folder. I found a Closed Link with a solution from 'Rollin_Again', but when I ran the vbx file, it printed only the 2 sample 'vbx' files in the folder, not the pdf's. Because this is my first post, I am not allowed to send a message to Rollin_Again until I've made multiple posts. I don't understand that part, but I'm told those are the rules.

Any help out there, or could someone contact Rollin_Again and ask him to respond to me here?

Thanks,
Bob

[WendyM]

Hi Bob,
Welcome to TSG. Can you post a link to the closed thread so we can see what Rollin recommended? Thanks.

[BobGOKC]

Sure. Here's the address:
http://forums.techguy.org/business-a...pdf-files.html

[slurpee55]

First, Be sure you use the exact text he wrote and paste it into Notepad, then do a Save As and give it a .vbs (note:not vbx) extension.
It will then print anything that is in "C:\TEST" or whatever folder you decide to use. Frankly, it is such simple code that it shouldn't not work....

[BobGOKC]

I agree. I am pretty computer literate but nothing with VBS. In fact there were two postings, slightly different, and I tried each. Both work to print the 3 non-pdf files in the folder (2 *.vbs's and 1 *.bat file), but they don't print the 2 pdf files named 1.pdf and 2.pdf.

Here's the code in the *.vbs I used for my folder I:\1\Temp:

set shApp = createobject("shell.application")
set shFolder = shApp.namespace("I:\1\Temp")
set vItems = shFolder.Items()
for each vItem in vItems
vItem.invokeverb "&Print"
next

And here are the 5 files in that folder:
PrintAny.bat
1.pdf
2.pdf
bulk file.vbs
bulk file2.vbs

See anything here?

[slurpee55]

Nope. But at http://www.biopdf.com/guide/examples/batch_printing/ there is a download that may help you.

[BobGOKC]

When I tried that, the 'create_documents.vbs' did create 10 sample '.txt' files in the 'In' subfolder. But when I ran the 'Example.vbs' program, with my default printer set to a physical printer (as opposed to a pdf), I got a Windows Script Host error of: ActiveX component can't create object: 'bioPDF.PDFPrinterSettings' Code: 800A01AD Source: Microsoft VBScript runtime error.

So still no luck.

[slurpee55]

You might try this small change

set shApp = createobject("shell.application") 
set shFolder = shApp.namespace("C:\Documents and Settings\Administrator\Desktop\Form 
Generator\PrintAll") 
set shItems = shFolder.Items() 
for each shItem in shItems 
shItem.invokeverb "&Print" 
next