Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: HonkXL am 01.03.11 - 08:15:08
-
Hallo,
ich habe eine Maske, die soll immer im Querformat ausgedruckt werden (da im Hochformat Ränder abgeschnitten werden). Leider vergessen die User immer das manuelle Umschalten. Nun würde ich gerne eine Schaltfläche einbauen, mit der automatisch der Druck im Querformat erfolgt. Nur leider habe ich trotz intensivster Suche nichts brauchbares gefunden.
Hier im Forum gibts zwar ein paar Einträge, wo was von der Windows API steht, aber nichts mit dem ich wirklich was anfangen kann.
Das ganze sollte unter Vista und Win 7 mit Notes 8.5.x funktionieren. Unter älteren Versionen und anderen Betriebssystemen braucht es nicht laufen.
Hat sowas schonmal jemand gemacht?
-
Google lässt grüßen :P
Fall 1: Eigene DLL für den Druck im Querformat ("Landscape")
http://www.dgrigoriadis.net/post/2004/06/26/PrinterDLL-or-how-to-make-Lotus-Notes-to-print-in-landscape.aspx (http://www.dgrigoriadis.net/post/2004/06/26/PrinterDLL-or-how-to-make-Lotus-Notes-to-print-in-landscape.aspx)
Fall 2: IBM sagt, unterstütze den SPR oder nehme emulierte Tastatureingaben
http://www-01.ibm.com/support/docview.wss?uid=swg21087073 (http://www-01.ibm.com/support/docview.wss?uid=swg21087073)
-
Hallo,
zu den simulierten Tastatureingaben:
Gut testen, gerade wenn unterschiedliche Betriebssysteme oder unterschiedliche Ländereinstellungen im Einsatz sind. Da kann es sonst ein ganz schönes Chaos geben.
Gruß
Sebastian
-
Hallo,
dank des Hinweises von oxse auf IBM habe ich den Code angepasst. Code in einen Button kopieren.
Declare Sub keybd_event Lib "user32.dll" (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer, Byval dwExtraInfo As Integer)
Sub Click(Source As Button)
keybd_event 17,0,0,0 ' Strg down
keybd_event 68,0,0,0 ' D down
keybd_event 68,0,2,0 ' D up
keybd_event 17,0,2,0 ' Strg up
keybd_event 16,0,0,0 ' shift down
keybd_event 9,0,0,0 ' tab down
keybd_event 9,0,2,0 ' tab up
keybd_event 16,0,2,0 ' shift key up
keybd_event 39,0,0,0 ' RightArrow key down
keybd_event 39,0,2,0 ' RightArrow key up
keybd_event 81,0,0,0 ' Q down
keybd_event 81,0,2,0 ' Q up
keybd_event 13,0,0,0 ' enter key down
keybd_event 13,0,2,0 ' enter key up
End Sub
Getestest mit Notes 8.5.1. auf Win7 und Win XP Prof. Die vollständigen JavaScript Character Codes fand ich bei www.cambiaresearch.com