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:
3600		 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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