Keypress values - Help

HCL Domino Domino Forum
1

Hello,

I am trying to print a view, but i want it to print the current view, so i am putting some kepresses in so i can select the right options, here is my code, but its not working :

Dim ws As New NotesUIWorkspace

Dim s As New NotesSession

Dim db As NotesDatabase

Dim uidb As NotesUIDatabase

Dim v As NotesView

Dim Nv As NotesView

Dim NDoc As NotesDocument

Dim uiv As NotesUIView

Dim strFormula As String

Dim strUCode As String

Dim strPicker As Variant

Dim strName As String



Set db = s.CurrentDatabase

Set uidb = ws.CurrentDatabase

Set v = db.GetView("PrintReport")

Set NV = db.GetView("BSUCodes")



strPicker = ws.DialogBox("UCodePicker",True,True,True,True,False,False,"Clyde Pumps - I.T. Service Desk")

Set uidoc = ws.CurrentDocument



If strPicker = True Then

	strUCode = s.GetEnvironmentString("UCode")

	Set NDoc = Nv.GetDocumentByKey(strUCode)

	strName = NDoc.ActualNameTX(0)

End If



strFormula = "SELECT Form = ""FLS Call"" & status = ""Open"" & GivenTo = """ & strName & """"

v.SelectionFormula = strFormula



uidb.OpenView("PrintReport")

Set uiv = ws.CurrentView

Call uiv.Print(,,,,,,True,,)





'Press the TAB key Twice

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up



'Press the UP KEY once

keybd_event 30,0,0,0 ' Up key down

keybd_event 30,0,2,0 ' Up key up



'Press the TAB key nine times!

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up

keybd_event 9,0,0,0 ' Tab key down

keybd_event 9,0,2,0 ' Tab key up



'Press enter to print

keybd_event 13,0,0,0 ' Return key down

keybd_event 13,0,2,0 ' Return key up

Anyone offer any help,

Thanks

F1H

2

Subject: Keypress values - Help

but its not working

You gotta give us more than that. Have you tried debugger? Can you identify which line it fails to work.

3

Subject: Keypress values - Help

Buddy, Are u missing declaration section like one below?..hope this help

Declare Sub keybd_event Lib “user32.dll” (Byval bVk As Integer, Byval bScan As Integer, Byval dwFlags As Integer,Byval dwExtraInfo As Integer)

4

Subject: Keypress values - Help

Sorry, I can’t figure out what you are trying to do. You say you want to print the current view, but where/when? Why isn’t the user simply using Ctrl-P?

Cheers,

Adrian