Thema Datum  Von Nutzer Rating
Antwort
13.09.2012 11:20:33 RobRoy
Solved
17.09.2012 12:18:33 Dekor
Solved
19.09.2012 17:59:52 Gast1926
Solved
20.09.2012 10:21:09 RobRoy
NotSolved
Rot PDF Formular ausfüllen und speichern - Excel VBA
 20.09.2012 12:38:07 Dekor
NotSolved
20.09.2012 16:52:29 RobRoy
NotSolved
23.11.2023 08:13:05 taner
NotSolved
24.11.2023 06:40:08 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
20.09.2012 12:38:07		 Views:
3047		 Rating:
     
Antwort:
  Ja
Thema:
PDF Formular ausfüllen und speichern - Excel VBA

Hallo Robroy,

hab mir auch mal was zusammengegoogelt...  sieht auf den ersten Blick kompliziert aus ist aber im Prinzip einfach und es druckt ohne das man was sieht

 

      Ordner  = "HKCR\Software\Adobe\Acrobat\Exe\"

      If Ordner <> "" Then
         Set oWSHShell = CreateObject("Wscript.Shell")
         Set oFs = CreateObject("Scripting.FileSystemObject")
         'Msgbox oWSHShell.RegRead(Ordner)
          Program = Replace(oWSHShell.RegRead(Ordner), '"', '')
         Set oWSHShell = Nothing
         Set oFs = Nothing
      Else
         Program = ""
         ''' Und hier Programm verlassen weil kein Reader installiert'''
         'exit Sub
      End If
      
      Option = "/P /H /N"

      '/N   Launches a separate instance of Acrobat or Adobe Reader, even if one is currently open.
      '/S   Opens Acrobat or Adobe Reader, suppressing the splash screen.
      '/O   Opens Acrobat or Adobe Reader, suppressing the open file dialog.
      '/H   Opens Acrobat or Adobe Reader in a minimized window.
      '/P   Print File
      '/T   Print File


      Datei = 'Deine PDF-Datei mit kpl. Pfad!

      If Dir(Datei) <> "" Then
         'msgbox Datei
         If Dir(Program) <> "" Then
            'msgbox Program & Option
            Shell Program & Option & Datei, vbaMinimizedNoFocus
         End If
      End If

Gruß Detlev

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
13.09.2012 11:20:33 RobRoy
Solved
17.09.2012 12:18:33 Dekor
Solved
19.09.2012 17:59:52 Gast1926
Solved
20.09.2012 10:21:09 RobRoy
NotSolved
Rot PDF Formular ausfüllen und speichern - Excel VBA
 20.09.2012 12:38:07 Dekor
NotSolved
20.09.2012 16:52:29 RobRoy
NotSolved
23.11.2023 08:13:05 taner
NotSolved
24.11.2023 06:40:08 ralf_b
NotSolved