Thread: Word(.doc) to TIFF conversion macro.....

This might work

Option Explicit


Sub CreateTiff()
Dim sActivePrinter As String
Dim sTifPath As String
Dim sTifFolder As String
Dim sTifFile As String

'Save current printer
sActivePrinter = Application.ActivePrinter
sTifFolder = "C:\My Documents\"
sTifFile = "TestTiff.tif"

'Use dialog so we do not change the system wide default printer
With Dialogs(wdDialogFilePrintSetup)
.Printer = "Microsoft Office Document Image Writer"
.DoNotSetAsSysDefault = True
'.Show
.Execute

End With

'Set tif file path and name
sTifPath = sTifFolder & sTifFile

'Create tif file
Application.PrintOut Background:=False, Append:=False, _
Range:=wdPrintAllDocument, OutputFileName:=sTifPath, _
Item:=wdPrintDocumentContent, Copies:=1, _
PageType:=wdPrintAllPages, PrintToFile:=True

'Reset printer
With Dialogs(wdDialogFilePrintSetup)
.Printer = sActivePrinter
.DoNotSetAsSysDefault = True
.Execute
End With
End Sub