468,512 Members | 1,477 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,512 developers. It's quick & easy.

How to append specific *.tif image with another tif file through Word VBA

1
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!
Expand|Select|Wrap|Line Numbers
  1. Set sPrinter = CreateObject("Word.Application")
  2.  sPrinter.ActivePrinter = "Informatik Image Driver 3.50"
  3.  
  4. With ActiveDocument
  5.  .PrintOut Background:=True, OutputFileName:=FNPath, Collate:=True, PrintToFile:=True
  6.  End With
  7.  With Application.FileDialog(msoFileDialogFilePicker)
  8.  .AllowMultiSelect = True
  9.  .Filters.Clear
  10.  .Filters.Add "Tiff Image", "*.tif"
  11.  .Title = "Select the File that you want to append"
  12.  .InitialFileName = "G:\Everyone\Letter Automation Testing - DO NOT DELETE"
  13.  .InitialView = msoFileDialogViewList
  14.  Set FiletoInsert = .SelectedItems
  15.  FiletoInsert.PrintOut Background:=True, Append:=True, OutputFileName:=FNPath, Collate:=True, PrintToFile:=True
  16.  
  17.  End With
Apr 7 '14 #1
0 976

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

12 posts views Thread by zhushenli | last post: by
14 posts views Thread by Steve K. | last post: by
6 posts views Thread by globalrev | last post: by
reply views Thread by raylopez99 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.