Dim DefaultPrinter As Object
                Dim objword As New Word.Application
                Dim objdoc As New Word.Document
                objword.Visible = False
                objdoc = objword.Documents.Add()
                DefaultPrinter = objword.ActivePrinter
                objword.ActivePrinter = printer
                ScriviEventLog("CreaPDF", "Pronto a stampare, aspetto 10 secondi..." & Doc.ToString, EventLogEntryType.Information)
                wait(10)
                objword.PrintOut(, , , inputfile, , , , , , , True, , Doc.ToString, , , , , , )
                ScriviEventLog("CreaPDF", "Stampa su ps fatta " + inputfile, EventLogEntryType.Information)
                objdoc.ActivePrinter = DefaultPrinter
                objword.Quit()
                wait(3) 'attesa 3 secondi
                DefaultPrinter = Nothing
                objword = Nothing
                objdoc = Nothing
                ScriviEventLog("CreaPDF", "Step 1 OK. Inizio conversione ps - pdf" & Doc.ToString, EventLogEntryType.Information)