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