У меня есть функция VB .NET, и мне нужно преобразовать документ .docx в .pdf, используя эту функцию. Я использую PDFCreator из командной строки с пакетом, созданным и выполненным внутри моей функции VB .NET, но почему-то это не работает, и я понятия не имею, что я делаю неправильно.
Какие-либо предложения?
Забыл сказать, что мне нужно, чтобы этот процесс был полностью скрыт от взаимодействия пользователя с приложением, поэтому преобразование в .pdf должно быть автоматическим, без взаимодействия с пользователем. Пользователю нужно только нажать «Преобразовать», а функция должна сделать все остальное.
Public dirTemp As String = My.Computer.FileSystem.SpecialDirectories.Temp
----
Function GeneratePDF_W10(ByVal PathWord As String, PathPDF As String)
Try
Dim pathScriptPDF As String = dirTemp & "\PDFScriptW10.bat"
Dim write As New System.IO.StreamWriter(pathScriptPDF, False)
write.WriteLine("C:\Program Files\PDFCreator\PDFCreator.exe /InitializeSettings")
write.WriteLine("C:\Program Files\PDFCreator\PDFCreator.exe /PrintFile=""" & PathWord & """ /OutputFile=""" & PathPDF & """")
write.Close()
Process.Start(pathScriptPDF)
Dim count As Integer = 0
Do While Exists(PathPDF) = False
Threading.Thread.Sleep(1000)
count = count + 1
If count >= 60 Then Exit Do
Loop
If Exists(PathPDF) = True Then
Return 1
Else
Return 0
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Return 0
End Try
End Function