Das Notes Forum

Domino 9 und frühere Versionen => ND9: Entwicklung => Thema gestartet von: ebrs am 11.05.17 - 14:19:29

Titel: LotusScript Drucken mit Word - Auswahl des Papierschachts / Tray
Beitrag von: ebrs am 11.05.17 - 14:19:29

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!

Titel: Re: LotusScript Drucken mit Word - Auswahl des Papierschachts / Tray
Beitrag von: ugusko am 11.05.17 - 15:49:06

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