Domino 9 und frühere Versionen > ND8: Entwicklung

Barcode erstellen und in PDF-Dateien speichern

(1/2) > >>

zoen:
Hallo,

ich bin hier ziemlich neu, heisse Peter. Habe eine grundsätzlich Frage:

Kann man Notesdocumente per Agent in verschiedene PDF Dateien mit einem generierten EAN Code (in PDF umgesetzt auf Strichcode) auf eine Festplatte speichern?

Wenn ja, welche Hürden muss ich überwinden, mit Notes und LS kenne ich ausreichend aus.

Peter

Thomas Schulte:
Geht es dir um PDF-Daten? Um ein darstellbares Dokument?

für beides gibt es Ansätze. Mit Tools von externen und nur mit LS. Ohne Tools von externen aber dafür mit JAVA ...

zoen:
Es geht um PDF-Dateien Erstellung und Speicherung. Wenn mann die Datei später druckt oder anschaut sollte dass dann auch richtig dargestellt( Barcode in strichformat ) werden.

Ohne externe Programm würde ich bevorzugen da später leicht nach Fehlern gesucht werden kann :)

JAVA hört sich gut an, bin zwar nicht so gut wie bei LS aber lernen kan man immer dazu. Hast du vielleicht einpaar info links wo ich mir das ganze anschauen kann?

Peter

zoen:
So, ich hab schon mal was zusammengetragen..

Ich glaube ein scribtbarer pdf "Drucker" wäre ne gute Lösung... kennt da jemand zufällig einen? Also nen "Druckertreiber" den man mit parametern für ne PDF Ausgabe füttern kann?

Dann noch nen Barcode Font und alles wird gut!  :D

y20frank:
Hi!

Für solche Sachen habe ich den kostenlosen PDFCreator schon mal eingesetzt.
http://sourceforge.net/projects/pdfcreator
Ein Beispielcode, um den PDFCreator anzufüttern, habe ich beigefügt (ist ein StandardCode aus dem Web).

Gruß
Frank


--- Code: ---Print a Single Worksheet to a PDF File:
Option Explicit

Sub PrintToPDF_Early()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
'   (Download from http://sourceforge.net/projects/pdfcreator/)
'   Designed for early bind, set reference to PDFCreator

    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String

    '/// Change the output file name here! ///
    sPDFName = "testPDF.pdf"
    sPDFPath = ActiveWorkbook.Path & Application.PathSeparator

    'Check if worksheet is empty and exit if so
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set pdfjob = New PDFCreator.clsPDFCreator

    With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + _
                    vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sPDFPath
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With

    'Print the document to PDF
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False

    'Wait until the PDF file shows up then release the objects
    Do Until Dir(sPDFPath & sPDFName) <> ""
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
End Sub


--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite