Reset PrintToFile setting?

[JBU]

I'm creating a macro that prints a document to a file. It works perfectly but I would like to reset the "Print To File" setting for the printer. Otherwise I will as default continue to PrintToFile. My Code:

Sub CreatePdf()
Dim PDFName As String
PDFName = "\\suppsrv1\Public\DistillerHotfolder\In\" & ActiveDocument.Name
If Right(PDFName, 4) = ".doc" Then
PDFName = Left(PDFName, Len(PDFName) - 4) & ".prn"
Else
PDFName = PDFName & ".prn"
End If
ActiveDocument.PrintOut _
PrintToFile:=True, OutPutFileName:=PDFName, Append:=False, Background:=True
' I need to reset the printer setting here!
end sub

Any suggestions?

Jens Busse
Workflow Consultant
CCI Europe A/S