I need to convert a word .doc to a .tif.

I can do it programatically but dont know how to get the Document Image
Writer window closed.

Heres my code - after it runs, i'm left with the Microsoft Office Document
Imaging window showing my TIF. I dont want this displayed to the user.

______________________-
Dim objWordApp As New Word.Application
Dim sPrinter As String
Dim sSaveFile As String

objWordApp.Documents.Open filename:=sdocpath
sSaveFile = "Test.TIF"

With objWordApp
..Visible = False
sPrinter = .ActivePrinter
..ActivePrinter = "Microsoft Office Document Image Writer on NE00:"
' Convert to a TIF
..ActiveDocument.PrintOut OutputFileName:=sSaveFile
..ActivePrinter = sPrinter
End With
objWordApp.Quit

ConvertToTIF = sdocpath

_____________________

Thanks - Joan

You might want to ask this in one of the vba newsgroups rather than in this
one which is about mailmerge.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!

My criminal defense site: http://addbalance.com
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.


"JC" wrote in message
...
I need to convert a word .doc to a .tif.

I can do it programatically but dont know how to get the Document Image
Writer window closed.

Heres my code - after it runs, i'm left with the Microsoft Office Document
Imaging window showing my TIF. I dont want this displayed to the user.

______________________-
Dim objWordApp As New Word.Application
Dim sPrinter As String
Dim sSaveFile As String

objWordApp.Documents.Open filename:=sdocpath
sSaveFile = "Test.TIF"

With objWordApp
.Visible = False
sPrinter = .ActivePrinter
.ActivePrinter = "Microsoft Office Document Image Writer on NE00:"
' Convert to a TIF
.ActiveDocument.PrintOut OutputFileName:=sSaveFile
.ActivePrinter = sPrinter
End With
objWordApp.Quit

ConvertToTIF = sdocpath

_____________________

Thanks - Joan