Hi All,

Here is what i want: I am doing an automation in Word to print the document as Tiff file as well as i would like to append certain tiff images with the same. I tried with below code, but i am not able to find how to append the tiff image, Please help me! This would avoid more errors in our process.

Set sPrinter = CreateObject("Word.Application")
sPrinter.ActivePrinter = "Informatik Image Driver 3.50"

With ActiveDocument
.PrintOut Background:=True, OutputFileName:=FNPath, Collate:=True, PrintToFile:=True
End With
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Tiff Image", "*.tif"
.Title = "Select the File that you want to append"
.InitialFileName = "G:\Everyone\Letter Automation Testing - DO NOT DELETE"


.InitialView = msoFileDialogViewList
Set FiletoInsert = .SelectedItems
FiletoInsert.PrintOut Background:=True, Append:=True, OutputFileName:=FNPath, Collate:=True, PrintToFile:=True

End With

Cross-posted at: http://www.vbaexpress.com/forum/show...rough-Word-VBA
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

If you want to include other TIFF images in the output, consider saving the document then adding the images to it document before printing. You can always close the document without saving afterwards, so the TIFF images don't remain with it.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]