keybd_event

[GerhardK]

Hallo Zusammen,

ich suche eine Lösung zum Druckerwechseln im uiDokument. Nach ewigen googeln und probieren  denke ich es geht nur über den Druckerdialog. Nun möchte ich diesen per keybd_event starten. Aber das Event wird durch folgenden Code leider nicht gestartet.
Mache ich einen Denkfehler oder woran liegt das?

Declare Sub keybd_event Lib "user32" (Byval _
bVk As Byte, Byval bScan As Byte, Byval dwFlags _
As Long, Byval dwExtraInfo As Long)

sub Drucken
   keybd_event &H12,0,0,0 'AltD,D
   keybd_event &H44,0,0,0
   keybd_event &H44,0,2,0
   keybd_event &H12,0,2,0
   keybd_event &H44,0,0,0
   keybd_event &H44,0,2,0
   
   keybd_event &H4D,0,0,0 'Druckername max..
   keybd_event &H4D,0,2,0
   keybd_event &H41,0,0,0
   keybd_event &H41,0,2,0
   keybd_event &H58,0,0,0
   keybd_event &H58,0,2,0
   
   keybd_event &HD,0,0,0 'Enter
   keybd_event &HD,0,2,0
end Sub

[ZaLudtske]

Hallo,

hier gibt es mehrere Lösungen.

1. Ich würde nicht die API nutzen sondern mit SendKey und DoEvents arbeiten

2. Man kann per API die Drucker auslesen und wechseln (leider hab ich den Code zur Zeit nicht griffbereit. Kann Ihn aber morgen Abend posten.)

R.

[GerhardK]

zu 1. Lotus Notes kann nur Sendkeys nach außen nicht zu sich selbst (warum auch immer?). Daher der Ausweg über die API

zu 2. Man kann per API die Drucker wechseln, nur Notes bekommt dies nicht mit, denn der letzte benützte Drucker ist der gewählte. Daran beis ich mir schon 2 Tage die Zähne aus.

Der einfachste Weg wäre Notes zum Standarddrucker zu zwingen, dann hätte ich die Lösung aber wie?

Gruß Gerhard

[Untitled]

Hilft davon was?

http://atnotes.de/index.php?topic=18866.0
http://www.atnotes.de/index.php?topic=13855.0

Grüsse
Moritz

[GerhardK]

Hallo Moritz,

über beide Threads bin ich schon gestolpert.

Frage zum 1. Thread
wie kann ich in Lotus Script den Befehl @Command( [FilePrintSetup] ) absetzten?

zum 2. Thread
ich möchte wie Don Pascale den Druckerdialog meiden, aber da es meiner Meinung nach auf keinem anderen Weg geht,  möchte ich diesen Dialog wenigstens automatisch abwickeln, von wegen User ist zu dumm und zu faul um den richtigen Drucker zu wählen.

und Cheffe sagt programmier mal schnell

Gruß Gerhard

[Untitled]

Zu 1:
"Call notesUIDocument.Print" oder "Call notesUIView.Print".

Zum Cheffe: Da hilft wohl nur ein "Call notesUICheffe.DeletePermanently (True, False)"

Moritz

[GerhardK]

Hallo Moritz,

den Befehl kenne ich. Aber wenn der Printdialog offen ist, wie schicke ich dann von Lotus Script aus die Tastaturbefehle. Der Printdialog ist ja dann modal gebunden und der Code erst mal unterbrochen.

das mit delete Cheffe is gut hi hi
Gruß Gerhard