Ausdruck per Schaltfläche im Querformat

[HonkXL]

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?

[0xse]

Google lässt grüßen

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

Fall 2: IBM sagt, unterstütze den SPR oder nehme emulierte Tastatureingaben
http://www-01.ibm.com/support/docview.wss?uid=swg21087073

[Bastel123]

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

[Christian Kröll]

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