Pdf aus dem spool mittel SAP Scripting VBS

ich würde gerne automatisiert aus dem spool drucken.

das script läuft auch bis zum Fenster "Speichern unter" öffnet sich aber das Fenster ansteuern und "Enter" eingeben funktioniert nicht.

kann mir jemand helfen?

Vielen Dank

session.findById("wnd").maximize
session.findById("wnd/tbar/okcd").text = "SA38"
session.findById("wnd").sendVKey 0
session.findById("wnd/usr/ctxtRS38M-PROGRAMM").text = "rstxpdft4"
session.findById("wnd/usr/ctxtRS38M-PROGRAMM").caretPosition = 9
session.findById("wnd/tbar[1]/btn[8]").press
session.findById("wnd/usr/txtSPOOLNO").text = "786729"
session.findById("wnd/usr/txtP_FILE").text = "Test_V_5_290519"
session.findById("wnd/usr/txtP_FILE").setFocus
session.findById("wnd/usr/txtP_FILE").caretPosition = 8
session.findById("wnd/tbar[1]/btn[8]").press

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 456921

Url: https://administrator.de/forum/pdf-aus-dem-spool-mittel-sap-scripting-vbs-456921.html

Ausgedruckt am: 16.05.2025 um 20:05 Uhr

2 Kommentare

Neuester Kommentar

Hallo,

Zitat von @EAGER2019:
das script läuft auch bis zum Fenster "Speichern unter" öffnet sich aber das Fenster ansteuern und "Enter" eingeben funktioniert nicht.

Welche Skriptsprache ist es denn?
Welche Hochsprache ist es denn?
Ist der Code vollständig?

session.findById("wnd").maximize  
session.findById("wnd/tbar/okcd").text = "SA38"  
session.findById("wnd").sendVKey 0  
session.findById("wnd/usr/ctxtRS38M-PROGRAMM").text = "rstxpdft4"  
session.findById("wnd/usr/ctxtRS38M-PROGRAMM").caretPosition = 9  
session.findById("wnd/tbar[1]/btn[8]").press  
session.findById("wnd/usr/txtSPOOLNO").text = "786729"  
session.findById("wnd/usr/txtP_FILE").text = "Test_V_5_290519"  
session.findById("wnd/usr/txtP_FILE").setFocus  
session.findById("wnd/usr/txtP_FILE").caretPosition = 8  
session.findById("wnd/tbar[1]/btn[8]").press  

So könnte dein Code auch aussehen. Nimm dazu links vom Editorfenster das zweite Icon von unten. Geht auch nachträglich.

Gruß,
Peter

´Hallo Peter,

Skriptsprache ist VBS.
Es handelt sich hier um eine Aufzeichnung aus SAP mittels der "Skript-Aufzeichnung"

der gesamte Code sieht so aus

If Not IsObject(application) Then
   Set SapGuiAuto  = GetObject("SAPGUI")  
   Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
   Set connection = application.Children(0)
End If
If Not IsObject(session) Then
   Set session    = connection.Children(0)
End If
If IsObject(WScript) Then
   WScript.ConnectObject session,     "on"  
   WScript.ConnectObject application, "on"  
End If
session.findById("wnd").maximize  
session.findById("wnd/tbar/okcd").text = "SA38"  
session.findById("wnd").sendVKey 0  
session.findById("wnd/tbar[1]/btn[8]").press  
session.findById("wnd/usr/txtSPOOLNO").text = "786729"  
session.findById("wnd/usr/txtP_FILE").text = "Test_V_5_290519"  
session.findById("wnd/usr/txtP_FILE").setFocus  
session.findById("wnd/usr/txtP_FILE").caretPosition = 8  
session.findById("wnd/tbar[1]/btn[8]").press  