Thema Datum  Von Nutzer Rating
Antwort
Rot beschreibbares pdf-Formular als pdf ausdrucken zum Archivieren
16.11.2018 09:31:40 OO_Nutzer
Solved
16.11.2018 15:53:24 Flotter Feger
NotSolved
19.11.2018 09:59:31 derHoepp
NotSolved

Ansicht des Beitrags:
Von:
OO_Nutzer
Datum:
16.11.2018 09:31:40
Views:
922
Rating: Antwort:
 Nein
Thema:
beschreibbares pdf-Formular als pdf ausdrucken zum Archivieren

Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.

sub Drucken
 Dim strMeinName As String
    Dim strFilename As String
    Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
   
  strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
 
         
    thisget.Field.ExportAsFixedFormat OutputFileName:= _
    Path & "\\" & strMeinName & ".pdf", _
    ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, _
    From:=1, To:=1, _
    Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, _
    KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, _
    BitmapMissingFonts:=True, _
    UseISO19005_1:=False


end sub

Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.

sub Drucken
 Dim strMeinName As String
    Dim strFilename As String
    Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
   
  strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
 
         
    thisget.Field.ExportAsFixedFormat OutputFileName:= _
    Path & "\\" & strMeinName & ".pdf", _
    ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, _
    From:=1, To:=1, _
    Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, _
    KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, _
    BitmapMissingFonts:=True, _
    UseISO19005_1:=False


end sub

Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.

sub Drucken
 Dim strMeinName As String
    Dim strFilename As String
    Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
   
  strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
 
         
    thisget.Field.ExportAsFixedFormat OutputFileName:= _
    Path & "\\" & strMeinName & ".pdf", _
    ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, _
    From:=1, To:=1, _
    Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, _
    KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, _
    BitmapMissingFonts:=True, _
    UseISO19005_1:=False


end sub


Gefunden bei http://www.computerhilfen.deHallo,

Hallo, ich habe in OO version 4.1.3 ein beschreibbares pdf-Fomullar erstellt.

dieses soll nacch der eingabe der Daten über einen Button gespeichert werden und zwar so, das der Inhalt der Formularfelder im Formular nicht mehr geändert werden kann, als das formular archiviert werden kann.

Wie kann ich das lösen?Wer kann mir helfen?

Mein code funktioniert bis Dateiname eingeben:

sub Drucken
 Dim strMeinName As String
    Dim strFilename As String
    Dim AppShell As Object
  Dim BrowseDir As Variant
  Dim Pfad As String
  Set AppShell = CreateObject("Shell.Application")
  Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
  On Error Resume Next
    
  strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
 
          
    thisget.Field.ExportAsFixedFormat OutputFileName:= _
    Path & "\\" & strMeinName & ".pdf", _
    ExportFormat:=wdExportFormatPDF, _
    OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, _
    Range:=wdExportAllDocument, _
    From:=1, To:=1, _
    Item:=wdExportDocumentContent, _
    IncludeDocProps:=True, _
    KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, _
    DocStructureTags:=True, _
    BitmapMissingFonts:=True, _
    UseISO19005_1:=False


end sub

 

ich habe in OO


Gefunden bei http://www.computerhilfen.de


Gefunden bei http://www.computerhilfen.de


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot beschreibbares pdf-Formular als pdf ausdrucken zum Archivieren
16.11.2018 09:31:40 OO_Nutzer
Solved
16.11.2018 15:53:24 Flotter Feger
NotSolved
19.11.2018 09:59:31 derHoepp
NotSolved