View Single Post
 
Old 04-08-2014, 10:39 AM
aarun2 aarun2 is offline Windows 7 32bit Office 2010 32bit
Novice
 
Join Date: Apr 2014
Posts: 1
aarun2 is on a distinguished road
Default How to append specific *.tif image with another tif file through Word VBA

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
Reply With Quote