D .doc a .pdf con pdfcreator

giovedì 10 gennaio 2008 - 22.10

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

almax Profilo | Junior Member

175 messaggi | Data Invio: gio 10 gen 2008 - 22:10

Ciao
mi servirebbe capire dove sbaglio sono in palla ...

Allora .. leggo una cartella con file word li prendo e li stampo in pdf con la stampante virtuale .. PdfCreator ...

Il problema dov'è ...Posto il codice utilizzato .... é una procedura secondaria ... le prime righe sono per settare la cartella con i file ..
Private Sub pdf()
Dim sr As New IO.StreamReader(Path.GetDirectoryName(Application.ExecutablePath) + "\setting.txt")
'qui leggo tutte le righe e le inserisco in un array
Dim dirs As New ArrayList
Do While sr.Peek() >= 0
dirs.Add(sr.ReadLine)
Loop
sr.Close()
Dim str, filesdoc() As String
Dim didoc As New IO.DirectoryInfo(dirs(3).ToString)
Dim aryFidoc As IO.FileInfo() = didoc.GetFiles("*.doc")
filesdoc = Directory.GetFiles(didoc.ToString)

'inizio qui per stampare i pdf .....

Dim pdfjob As New PDFCreator.clsPDFCreator
Dim print
Dim oWord As New Word.Application
oWord = CreateObject("Word.Application")
Dim oDoc As New Word.Document

print = oWord.ActivePrinter
oWord.ActivePrinter = "PDFCreator"

If pdfjob.cStart("/NoProcessingAtStartup") = False Then
MsgBox("Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator")
Exit Sub
End If

Dim i As Integer = 0

For Each str In filesdoc
MsgBox("" & str & "")
oDoc = oWord.Documents.Open(CType(filesdoc(i), Object))
oDoc.Activate()
pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = dirs(3).ToString
.cOption("AutosaveFilename") = filesdoc(i)
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache()

End With

oDoc.PrintOut(Background:=False, Copies:=1)
oDoc.Close()
oWord.ActivePrinter = print

Do Until pdfjob.cCountOfPrintjobs = 1
Application.DoEvents()
Loop
pdfjob.cPrinterStop = False

Do Until pdfjob.cCountOfPrintjobs = 0
Application.DoEvents()
Loop
pdfjob.cClose()
pdfjob = Nothing
i += 1

Next
oWord.Quit()
oWord = Nothing

End Sub

il problema è che non mi stampa nulla si blocca .. o ne stampa uno solo...
Grazie mille

Risolto ... Ho visto che le option non vanno non me le prende
allora ho risolto impostando le opzioni da pdfcreator poi utilizzo oDoc.printout
e rinomino il file prima di passare al secondo .. Se dovesse servire posso postare il codice..
Ciao

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !