Option Public
Use "PrintingUtilities"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call PrintAllAttachments(doc)
Set doc = collection.GetNextDocument(doc)
Wend
End Sub

I get the next error messages:
Error processing use list module: Scripted Object
and:
Error laoding USE or USELSX module : PrintingUtilities
debugging is not possible...

you should have copied the entire library into a script library and named it "PrintingUtilities"
the the use statement should be in the (options) section of your script.
did you do those two things?

Sorry, I am a complete tyro at this - I am not a programmer, although I was able to get this script working in Lotus Notes with the information above and in the comments. I added the "simple agent" into the Initialize section of the script library, which fixed the USE error as mentioned above.
In short, it works beautifully and even prints PDFs and TIF files, which are other file types I receive; but I only need to print the first sheet of each Excel attachment, (there can be multiple attachments in the emails).
This prints all the tabs, and each Excel attachment has 3 tabs, resulting in a lot of wasted paper.
Please, can someone advise a simple method for a non-programmer to adjust this so that only the first sheet prints? A snippet of code for the Excel section with specific instructions on placing it would probably suffice.
Thanks very much!

http://msdn2.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.printout(VS.80).aspx
in the PrintMSExcel routine, you should be able to change the line
Call docToPrint.PrintOut()
to
Call docToPrint.PrintOut(1,1)
and that will print only the first page.
I haven't tried this myself, but that's what the documentation indicates.

Wow, thanks! I had more or less guessed at it; turns out all I had to add was add (1,1) as in your example. Thanks also for the reference.
I can now get this to work if I select documents and run them from a menu, but ideally I would like it to run and print the attachments automatically as they are received - I have it set to select on the Inbox because it's a dedicated email for this purpose, but my test emails won't print. The setting on "Properties" is "After new mails arrive" and the agent is enabled.
Is there something else in the script that needs to be modified?

do you have the agent set to run on server or client?
see if you have rights to run the agent on the server.
you might want to try signing the database, all design elements, with the server's ID (see your admin, if it's not you)
right-click on the server version of the agent in designer, and click 'test' and see what it tells you. you'll get some ideas.
make sure you have a default printer installed on the server. honestly I'm not sure how it finds the default print queue since notes usually runs under the local system account. I'm sure there's a way, I just don't know what it is.
if you're running on the client, go to file-preferences-user preferences and make sure "Enable Scheduled Local Agents" is checked.

I didn't have "Enable Scheduled Local Agents" checked - that was it. It works when I set the properties to run on manually selected emails, which I think is the way it was designed, and that's just fine. It automates a tedious process and frees up a lot of time.
Thank you very much.

Thanks, I found this all very useful. Since I can't help tinkering, and I'm running R6.5.1, I adapted the PrintAllAttachments sub to use the NotesRichTextNavigator class. This way, I'm only cruising through the doc if it has file attachments.
Public Sub PrintAllAttachments (doc As NotesDocument)
%REM
Prints out attachments in the document
IN
doc, the Notes document
OUT
nothing
%END REM
Dim rtitem As NotesRichTextItem
Dim nav As NotesRichTextNavigator
Dim att As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem("Body")
Set nav = rtitem.CreateNavigator
If nav.FindFirstElement (RTELEM_TYPE_FILEATTACHMENT) Then
Do
Set att = nav.GetElement()
Call PrintAttachment (att)
Loop While nav.FindNextElement()
Else
Messagebox "This document contains no attached files"
End If
End Sub
Also, I found I needed to add the virgule (aka backslash) to my GetTmpDir function to implement correctly.
Private Function GetTmpDir As String
%REM
Gets (if exists) or creates a temporary directory temp in the Notes data directory
IN
Nothing.
OUT
Nothing.
RETURN
The temporary directory, terminated by ""
%END REM
On Error Goto TmpDirError
Dim s As New NotesSession
Dim TmpDir As String
'Directory is the Notes data Directory identified in User Preferences
TmpDir = s.GetEnvironmentString ("Directory", True)
If TmpDir <> "" And Right(TmpDir, 1) <> "\" Then TmpDir = TmpDir & "\"
TmpDir = TmpDir & "temp\"
If Dir$ (TmpDir , 16)="" Then
Mkdir TmpDir
End If
TmpDir = TmpDir & ""
GetTmpDir = TmpDir
Exit Function
TmpDirError:
On Error Goto 0
GetTmpDir = "c:\temp\"
Exit Function
End Function