Domino 9 und frühere Versionen > ND6: Entwicklung

Distiller zum PDF erzeugen

<< < (3/6) > >>

rhaller:
Guten Morgen! Denke mal, Dein Posting sollte woanders stehen...und im Übrigen klappt das wirklich nicht.

jo@chim:
Uups, dass ich diesen Post erst jetzt finde ... habe mir inzwischen selbst etwas mit dem PDFCreator http://www.pdfforge.org/products/pdfcreator/, einem freien PDF-Druckertreiber unter GNU GPL, gebastelt.
Das Skript kann auch mehrere Dateien zu einer einzigen PDF-Ausgabedatei kombinieren:


--- Code: ---Function file2PDF(fileNames As Variant,outPath As String,outFile As String) As String
%REM
**********************************************************************************
Uses the PDFCreator COM - http://www.pdfforge.org/products/pdfcreator
to convert one or multiple files (and combine, if neccessary) to PDF
**********************************************************************************
Example use:
Dim fileNames List As String
Dim outPath As String
Dim outFile As String
fileNames(1) = "c:\temp\test1.doc"
fileNames(2) = "c:\temp\test2.doc"
fileNames(3) = "c:\temp\test.xls"
outPath="c:\temp\"
Combined output file(s) name:
outFile="output.pdf"
If you don't want a combined output file, specify
outFile=""
Msgbox file2PDF(fileNames,outPath,outFile),64,"file2PDF Ausgabemeldung"
**********************************************************************************
by jo@chim - version 2007/05/04
**********************************************************************************
%END REM
Dim PDFCreator As Variant
Dim combine As Boolean
Dim DefaultPrinter As String
Dim success As String

Const sleepTime = 1 'Printer needs some sleepin' to avoid PDFCreator crash

If Dir(outPath)="" Then
file2PDF="The output path '" & outPath & "' does not exist"
Exit Function
End If

If outFile ="" Then
combine=False
Else
combine=True
End If

Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")
With PDFCreator
.cStart "/NoProcessingAtStartup"
.cVisible = False
.cWindowState = 1
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveFormat") = 0
.cOption("AutosaveDirectory") = outPath
DefaultPrinter = .cDefaultprinter
.cDefaultprinter = "PDFCreator"
.cClearcache

Forall cFile In fileNames
If Dir(cfile)="" Then
success= success & Chr$(10) & "'"& cFile & "' does not exist"
Elseif Not .cIsPrintable(cFile) Then
success= success & Chr$(10) & "'"& cFile & "' cannot be converted to PDF"
Else
j=0
If combine=False Then
For i = 1 To Len(cFile)
If Instr(i,cFile,"\")<>0 Then
j=Instr(i,cFile,"\")
End If
Next i
outFile=Right(cFile,Len(cFile)-j)
.cOption("AutosaveFilename") = outFile
.cPrintfile cFile
.cPrinterStop = False
Sleep sleepTime
Else
.cPrintfile cFile
Sleep sleepTime
End If
success= success & Chr$(10) & "'"& cFile & "' has been converted"
End If
End Forall

If combine =True Then
.cOption("AutosaveFilename") = outFile
.cCombineAll
.cPrinterStop = False
Sleep sleepTime
success= success & Chr$(10)  & Chr$(10) & "Combined output file:" & Chr$(10) & outPath & outFile
End If

.cDefaultprinter = DefaultPrinter
.cClearcache
.cClose
End With
Set PDFCreator =Nothing
file2PDF=success
End Function
--- Ende Code ---

Driri:
Sieht interessant aus, dazu mal eine Frage. Kann ich mit dem PDFCreator nur vorhandene Dateien ins PDF drucken ? Ich habe mal in der Hilfe zu COM nachgesehen und finde da nur die Subroutine cPrintFile.

Oder bleibt für ein NotesDocument nur der Umweg über z.B. eine Worddatei, die man dann vorher erzeugen muß ?

Matthias1974:
Hallo Diri,

ich habe auch seit kurzem den PDF-Creator als Dienst am Print-Server laufen, da kannst Du aus jeder Anwendung heraus direkt ein PDF-File erzeugen, läuft problemlos. Bei uns wird das PDF-File im Homedirectory des Benutzers erzeugt.

jo@chim:
Den PDFCreator per cDefaultprinter als Standard-Drucker und wieder zurück zu setzen, scheint leider nur in Zusammenhang mit dem cPrintFile zu funktionieren (@matthias: ist das anders, wenn er als Dienst installiert ist? falls ja: wie steuere ich das per COM an?)

Ein temporäres Word-File ist sicher ein möglicher Problemlösungsansatz. Die Druckereinstellung per API-Calls (RegQueryValueEx / RegSetValueEx) zu steuern und dann das Notes-Dokument direkt als PDF zu drucken, erscheint mir aber, da Office-unabhängig, naheliegender.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete