Combine tiff documents with VBA

[Lester Herran-Venables]

I am trying to automate sending faxed documents from Access. The document
has to consist of tiff files that include a cover page (already successfully
printed to mdi) and a list of tiff scans that is generated by a query

I currently have:

Dim MDIsrc, MDIadd as MODI.Document
Set MDIsrc = New MODI.Document
Set MDIadd = New MODI.Document

MDIsrc.Create _
FileOpen:="W:\ScannedDocs\lastprint.mdi" 'This is the cover sheet


Now a query will provide a list of files such as
W:\ScannedDocs\111.tiff
W:\ScannedDocs\115.tiff
W:\ScannedDocs\120.tiff
which need to be appended to the cover sheet

MDIsrc.Create _
FileOpen:="W:\ScannedDocs\lastprint.mdi"


****PROBLEM HERE ****
MDIadd.Create _
FileOpen:="W:\ScannedDocs\162.tiff" 'THIS WILL COME FROM QUERY LATER
With MDIsrc.Images
.Add MDIadd(1), Nothing

End With
********************

then finally

MDIsrc.SaveAs "W:\ScannedDocs\tofax.tif", miFILE_FORMAT_TIFF

or just print to fax from MODI

my problem is attaching additional documents. I get an IO error with the
above code.


Thanks for any help,
Lester.