Thema Datum  Von Nutzer Rating
Antwort
22.02.2024 21:49:34 GTA
Solved
22.02.2024 23:16:14 ralf_b
NotSolved
22.02.2024 23:30:23 GTA
NotSolved
23.02.2024 06:45:26 ralf_b
NotSolved
23.02.2024 08:40:58 Gast7437
NotSolved
25.02.2024 01:27:12 Gast3329
NotSolved
23.02.2024 08:41:02 Gast9618
NotSolved
23.02.2024 19:35:25 ralf_b
NotSolved
24.02.2024 11:13:32 Gast7849
NotSolved
25.02.2024 11:32:08 GTA
NotSolved
25.02.2024 11:53:16 ralf_b
NotSolved
Blau Beliebiges Dokument in einem Ordner als PDF drucken
25.02.2024 22:16:17 GTA
NotSolved
26.02.2024 00:56:15 ralf_b
NotSolved
27.02.2024 06:52:51 Gast17147
NotSolved
27.02.2024 17:20:03 ralf_b
Solved
29.02.2024 12:53:28 Gast47604
NotSolved
29.02.2024 13:06:21 Mase
NotSolved
29.02.2024 21:32:09 Gast13146
NotSolved
01.03.2024 12:35:24 GTA
Solved

Ansicht des Beitrags:
Von:
GTA
Datum:
25.02.2024 22:16:17
Views:
115
Rating: Antwort:
  Ja
Thema:
Beliebiges Dokument in einem Ordner als PDF drucken
Ich dachte ich kann mich mit Tab durch den Dialog angeln, das funktioniert bescheiden, sobald die Einstellungen im Dialog anders sind, "fehlt" ein Tab-Befehle und springt nicht mehr die richtigen Felder an. 
Sub Dialog_Print_Out()
Dim FSO As New FileSystemObject
Dim WshShell As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("Wscript.Shell")
               Application.Wait (Now + TimeValue("0:00:05"))
               OCCDoc.PrintOut
               Application.Wait (Now + TimeValue("0:00:05")) 'Standard auf 15s, Laden des Druckers
             With WshShell ' Speichern unter Fenster geht auf, Dialogfenster
               .SendKeys ("{TAB}")
'               Application.Wait (Now + TimeValue("0:00:01")) '1
               .SendKeys "+{TAB}" '1 Spalte Name
'               Application.Wait (Now + TimeValue("0:00:01")) '2
               .SendKeys "+{TAB}" '2 Ordner
'               Application.Wait (Now + TimeValue("0:00:01")) '3
               .SendKeys "+{TAB}" '3 Schnellzugriff
'               Application.Wait (Now + TimeValue("0:00:01")) '4
              .SendKeys "+{TAB}" '4 Schnellzugriff
'               Application.Wait (Now + TimeValue("0:00:01")) '5
              .SendKeys "+{TAB}" '5 Organisieren
'               Application.Wait (Now + TimeValue("0:00:01")) '6
              .SendKeys "+{TAB}" '5 Suchleiste => Problem: wird häufig nicht angesprungen, entweder übersprungen oder                      ausgesetzt
'               Application.Wait (Now + TimeValue("0:00:01")) '7
              .SendKeys "+{TAB}" '5 Adressleiste
              Application.Wait (Now + TimeValue("0:00:01")) '8 Getapt bis Adresszeile
              .SendKeys ("{ENTER}") 'Adresseleiste aktivieren
              Application.Wait (Now + TimeValue("0:00:03")) 'Eingabe des Pfades
              .SendKeys PDF_Ordner 'Pfad eingeben
'              .SendKeys ("^V")
              Application.Wait (Now + TimeValue("0:00:03")) '8
              .SendKeys ("{ENTER}") 'in den Ordner springen
               Application.Wait (Now + TimeValue("0:00:01")) '1
              .SendKeys "{TAB}" 'Suchleiste
               Application.Wait (Now + TimeValue("0:00:01")) '2
              .SendKeys "{TAB}" 'Organisieren
               Application.Wait (Now + TimeValue("0:00:01")) '3
              .SendKeys "+{TAB}" 'Schnellzugriff
               Application.Wait (Now + TimeValue("0:00:01")) '4
              .SendKeys "{TAB}" '
              Application.Wait (Now + TimeValue("0:00:03")) '5
              .SendKeys ("{ENTER}")
              Application.Wait (Now + TimeValue("0:00:03")) ' PDF schliessen
              .SendKeys "%{F4}"
              Debug.Print i & " " & Dateiname

Deshalb nochmal die Frage, wie kann ich die Felder im Dialogfenster direkt ansprechen? Mir fehlen die Schlagworte hierzu.


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
22.02.2024 21:49:34 GTA
Solved
22.02.2024 23:16:14 ralf_b
NotSolved
22.02.2024 23:30:23 GTA
NotSolved
23.02.2024 06:45:26 ralf_b
NotSolved
23.02.2024 08:40:58 Gast7437
NotSolved
25.02.2024 01:27:12 Gast3329
NotSolved
23.02.2024 08:41:02 Gast9618
NotSolved
23.02.2024 19:35:25 ralf_b
NotSolved
24.02.2024 11:13:32 Gast7849
NotSolved
25.02.2024 11:32:08 GTA
NotSolved
25.02.2024 11:53:16 ralf_b
NotSolved
Blau Beliebiges Dokument in einem Ordner als PDF drucken
25.02.2024 22:16:17 GTA
NotSolved
26.02.2024 00:56:15 ralf_b
NotSolved
27.02.2024 06:52:51 Gast17147
NotSolved
27.02.2024 17:20:03 ralf_b
Solved
29.02.2024 12:53:28 Gast47604
NotSolved
29.02.2024 13:06:21 Mase
NotSolved
29.02.2024 21:32:09 Gast13146
NotSolved
01.03.2024 12:35:24 GTA
Solved