D .doc a .pdf con pdfcreator

giovedì 10 gennaio 2008 - 22.10

almax Profilo | Junior Member

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
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 !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5