aarun2
04-07-2014, 10:03 AM
Hi All,
This is the first time, i am using this site. I hope i will get my question answered. Thanks in advance for all your support.
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!
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
This is the first time, i am using this site. I hope i will get my question answered. Thanks in advance for all your support.
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!
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