Buenas ante todo. Estoy tratando de hacer un servicio de windows que cuando inicie, tome un .doc y lo envie a una impresora virtual que lo que hace es generarme un .pdf. En resumen tengo que hacer un servicio que convierta doc a pdf.
Bueno, el tema es que el servicio arranca, toma el .doc, lo manda a la impresora y se me queda con la pantalla de un "save as" preguntando donde guarda y con que nombre el .pdf.
Hasta hora la respuesta seria "Bueno... tenes un problemita con la impresora!", pero no creo que venga por ahi.. porque si yo manualmente abro un .doc y lo mando a imprimir no se habre nada, ya que la impresora tiene un configuracion para que todo lo que le mandes lo graba en un x directorio y con un x nombre.
Si este programa no lo hago como servicio, funciona perfectamente.... asi que asi estoy... hay alguna forma de poder pasar datos automaticamente a la pantalla de save as, asi no se queda esperando una respuesta del usuario?.
Les paso el codigo y desde ya mil gracias

Imports System
Imports Microsoft.Office.Interop

Public Class MyNewService
Private ApWord As Word.Application
Protected Overrides Sub OnStart(ByVal args() As String)
ApWord = New Word.Application
ApWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone
EventLog1.WriteEntry("In OnStart")
Dim doc As Word.Document = ApWord.Documents.Open("c:\temp\3.doc", False, True)
EventLog1.WriteEntry("Abrio Doc")
ApWord.ActivePrinter = "PDF4U"
EventLog1.WriteEntry("Seteo Impresora PDF4U")
doc.PrintOut()
EventLog1.WriteEntry("Imprimio Doc")
doc.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
ApWord.Quit()
ApWord = Nothing
EventLog1.WriteEntry("Cerro Doc")
End Sub

Protected Overrides Sub OnStop()
EventLog1.WriteEntry("In OnStop")
End Sub
End Class