SendKeys on Vista

[neveu]

hello forum,

i've made an VBA tool that would take the printscreen of the previous active window and copy it into Excel using Sendkeys

the program is running perfect on XP but fails big time on Vista.
do you know if there is anything specific with Vista that would have an effect on the Sendkey method?

any tips or information is greatly appreciated.
here is the code:

Uploaded with ImageShack.us

Sub all_print_screens()
Call a  'moves to the previous window
Call B  'print screen previous window
Call D  'goes back to last excel file opened
Call E  ''copy current print screen in the first row after the previous print screen
'Call f  'inserts the username, time stamp and default values & dropdown lists
End Sub

Sub a()
'moves to the previous window
'ALT+Tab - cauta pe net SENDKeys
Application.SendKeys "%{TAB}", True
DoEvents
Application.Wait (Now + 0.000005)

End Sub

Sub B()
'print screen previous window

'Application.SendKeys "{PRTSC}"
Application.SendKeys "(%{1068})", True ' printscreen
DoEvents
Application.Wait (Now + 0.000001)
DoEvents
End Sub
 
Sub c()
'move to Excel tool
'ALT+Tab - cauta pe net SENDKeys
'Application.SendKeys "{%TAB}"

End Sub

Sub D()
'goes back to last excel file opened ; [here will be the Excel file containing the macro
'AppActivate "Microsoft Excel"
'AppActivate Application.Caption
Application.SendKeys "%{TAB}"
DoEvents
Application.Wait (Now + 0.000001)

End Sub
Sub E()
'copy current print screen in the first row after the previous print screen
'Sub Find_Image_Range_In_Excel()
Dim rCount As Long
Dim shp As Shape
For Each shp In ActiveWorkbook.Worksheets(1).Shapes
 If shp.BottomRightCell.Row > rCount Then rCount = shp.BottomRightCell.Row
On Error Resume Next
Next
Sheets(1).Activate
   Cells(rCount + 7, 1).Select
       ActiveSheet.Paste
 
end sub

 

[kpark91]

Are all the subs posted not working or is only one of them not working?
What version of excel are you using? (I'm guessing 2003) while Vista guys are using XL 2007?

 

[neveu]

hi,
the program is working perfectly on XP - meaning it takes the right printscreen and copies it into excel and then Excel remains the active window

in vista, it takes some weird print screen (as inserted in the email) and the active window remains the one for which i wanted to take the printscreen.

just to give you more insight on the program:

what it does (XP) : selects the previous activated window; makes a printscreen, moves back to excel, copies the print screen.

i;m using excel 2007.


any thoughts on this?