LotusScript Drucken mit Word - Auswahl des Papierschachts / Tray

[ebrs]

Hallo, ich habe versucht, die Funktion zu nutzen, die Papierschächte des Druckers gezielt anzusprechen.
Habe nämlich einen Anwendungsfall, wo zwei unterschiedliche Fächer (andere Papierarten) verwendet werden.
Offiziell  sollte das ja funktionieren. Aber egal, welche Nummern ich verwende, es kommt immer aus dem Standardschacht.
Hab ich im Code evtl. einen Fehler? Oder wäre das grundsätzlich richtig?
Oder liegt es vielleicht daran, dass die Traynummer evtl. nicht < 10 ist?

Hier beide Varianten, die ich probiert habe - es ist ein Testagent, der als Input die Schachtnummer nimmt und dann entsprechend einen kurzen Testdruck auslöst.

Variante 1:
   Dim objWord As Variant
   Dim objDoc As Variant
   Dim Cursor As Variant
   Dim inputTray As String
   Dim intTray As integer
   
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add()
   Set Cursor = objWord.Selection
   
   inputTray = InputBox$({Bitte Fach Nr angeben})
   If inputTray <> "" And IsNumeric(inputTray) Then
      intTray = CInt(inputTray)
      objDoc.PageSetup.FirstPageTray = intTray
      objDoc.PageSetup.OtherPagesTray = intTray
      Cursor.typetext "Testdruck Fach " & inputTray
      objWord.Application.PrintOut
      Sleep 2
      objWord.Quit(0)
   End If

Variante 2:
   Dim objWord As Variant
   Dim objDoc As Variant
   Dim Cursor As Variant
   Dim inputTray As String
   Dim intTray As integer
   
   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add()
   Set Cursor = objWord.Selection
   
   inputTray = InputBox$({Bitte Fach Nr angeben})
   If inputTray <> "" And IsNumeric(inputTray) Then
      intTray = CInt(inputTray)
      Cursor.PageSetup.FirstPageTray = intTray
      Cursor.PageSetup.OtherPagesTray = intTray
      Cursor.typetext "Testdruck Fach " & inputTray
      objWord.Application.PrintOut
      Sleep 2
      objWord.Quit(0)
   End If

Vielen Dank!

[ugusko]

Versuch es doch mal mit dem Wert 259 oder 260 ...