Domino 9 und frühere Versionen > Entwicklung

Nach Datei auf Festplatte suchen?

<< < (2/3) > >>

Gandhi:
Du könntest den Reader auch per COM (ich gehe mal davon aus, dass Acrobat das beherrscht) aufrufen - dann sucht der Com-Server Dir den Pfad (bzw. liest die Registry aus und startet das Programm).

Johnson:
Ich hätte hier ein Script, dass dir vieleicht auch weiterhelfen könnte. Ich hab´s in LS noch nicht ausprobiert unter VB läufts.

Es diente dem Ausdrucken von PDFs.


    Dim AcroApp As CAcroApp
    Dim AcroAVDoc As CAcroAVDoc
    Dim AcroPDDoc As CAcroPDDoc
    Const POSTSCRIPT_LEVEL = 2


    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")

    If AcroAVDoc.Open(strFileName, vbNull) <> True Then
        Exit Sub
    End If

    Set AcroAVDoc = AcroApp.GetActiveDoc
    Set AcroPDDoc = AcroAVDoc.GetPDDoc

    AcroAVDoc.PrintPages 0, AcroPDDoc.GetNumPages - 1, POSTSCRIPT_LEVEL, True, False

    AcroAVDoc.Close True
    AcroApp.Exit

    Set AcroDoc = Nothing
    Set AcroApp = Nothing



Du findest aber auch einige Tutorials diesbezüglich im Netz. Auf www.planetpdf.com haben sich auch schon einige zu diesem Thema ausgelassen.

Axel:

--- Zitat von: OCS am 26.10.05 - 14:46:37 ---oder so ähnlich halt... Hab keinen Plan vpm Fehlerhandling :-)

--- Ende Zitat ---

Dann schau mal hier: Best Practices: Error Handling in Lotus Script


Axel

Klafu:

--- Zitat von: Johnson am 26.10.05 - 15:01:20 ---Ich hätte hier ein Script, dass dir vieleicht auch weiterhelfen könnte. Ich hab´s in LS noch nicht ausprobiert unter VB läufts.

Es diente dem Ausdrucken von PDFs.


    Dim AcroApp As CAcroApp
    Dim AcroAVDoc As CAcroAVDoc
    Dim AcroPDDoc As CAcroPDDoc
    Const POSTSCRIPT_LEVEL = 2


    Set AcroApp = CreateObject("AcroExch.App")
    Set AcroAVDoc = CreateObject("AcroExch.AVDoc")

    If AcroAVDoc.Open(strFileName, vbNull) <> True Then
        Exit Sub
    End If

    Set AcroAVDoc = AcroApp.GetActiveDoc
    Set AcroPDDoc = AcroAVDoc.GetPDDoc

    AcroAVDoc.PrintPages 0, AcroPDDoc.GetNumPages - 1, POSTSCRIPT_LEVEL, True, False

    AcroAVDoc.Close True
    AcroApp.Exit

    Set AcroDoc = Nothing
    Set AcroApp = Nothing



Du findest aber auch einige Tutorials diesbezüglich im Netz. Auf www.planetpdf.com haben sich auch schon einige zu diesem Thema ausgelassen.

--- Ende Zitat ---

Hallo,

ja ich weis, das hier ist ein altes Thema, aber könnte vielleicht jemand das VB ein bisschen Kommentieren ?
Ich such mich grad dumm und dusslich nach einer guten Beschreibung/Erklärung.
Oder kann mir jemand zeigen wo ich die Attribute und Methoden nachlesen kann ?

Gruß Chris

m3:
Adobe Acrobat SDK: Interapplication Communication API Reference

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete