convertir Publisher a *.pdf
Publicado por MariaBJS (2 intervenciones) el 17/11/2009 08:43:48
Buenas, intento imprimir un Publisher con el PDFCreator para convertirlo en PDF.
Mi código es el siguiente:
Dim creator As New clsPDFCreator()
Dim parameters As String = "/NoProcessingAtStartUp"
If Not creator.cStart(parameters, False) Then
creator = Nothing
MessageBox.Show("error")
Else
' Estas son las opciones para que se autoguarde
creator.cOption("UseAutosave") = 1
creator.cOption("UseAutosaveDirectory") = 1
creator.cOption("AutosaveDirectory") = My.Application.Info.DirectoryPath
creator.cOption("AutosaveFormat") = 0
creator.cOption("AutosaveFilename") = "salida4"
creator.cOption("NoConfirmMessageSwitchingDefaultprinter") = 0
creator.cClearCache()
Dim missingValue As Object = Type.Missing
Dim file As String = My.Application.Info.DirectoryPath & "\prueba.pub"
creator.cPrintFile(file)
Dim false_object As Object = False
While creator.cCountOfPrintjobs <> 1
End While
creator.cPrinterStop = False
While creator.cCountOfPrintjobs <> 0
End While
creator.cPrinterStop = True
creator.cClose()
creator = Nothing
MessageBox.Show("Terminado")
End If
Con un fichero de entrada Word me funciona (prueba.doc en lugar de prueba.pub), pero con un fichero Publisher el PDF me lo genera vacío.
¿Alguién me puede ayudar?
Gracias
Mi código es el siguiente:
Dim creator As New clsPDFCreator()
Dim parameters As String = "/NoProcessingAtStartUp"
If Not creator.cStart(parameters, False) Then
creator = Nothing
MessageBox.Show("error")
Else
' Estas son las opciones para que se autoguarde
creator.cOption("UseAutosave") = 1
creator.cOption("UseAutosaveDirectory") = 1
creator.cOption("AutosaveDirectory") = My.Application.Info.DirectoryPath
creator.cOption("AutosaveFormat") = 0
creator.cOption("AutosaveFilename") = "salida4"
creator.cOption("NoConfirmMessageSwitchingDefaultprinter") = 0
creator.cClearCache()
Dim missingValue As Object = Type.Missing
Dim file As String = My.Application.Info.DirectoryPath & "\prueba.pub"
creator.cPrintFile(file)
Dim false_object As Object = False
While creator.cCountOfPrintjobs <> 1
End While
creator.cPrinterStop = False
While creator.cCountOfPrintjobs <> 0
End While
creator.cPrinterStop = True
creator.cClose()
creator = Nothing
MessageBox.Show("Terminado")
End If
Con un fichero de entrada Word me funciona (prueba.doc en lugar de prueba.pub), pero con un fichero Publisher el PDF me lo genera vacío.
¿Alguién me puede ayudar?
Gracias
Valora esta pregunta


0