print screen

C

climax

Hi,

I need a screenshot of my desktop triggered by exel.

something like:

if Range("a1").Value = 1 then PRINTSCREEN

Can it be done?

Thanks
 
C

ChelseaWarren

Enter this code in the sheet object (not a regular module)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WatchRange As Range
Set WatchRange = Range("A1")
If Range("A1").Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
 
C

ChelseaWarren

Correction to previous reply:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WatchRange As Range
Set WatchRange = Range("A1")
If Union(Target, WatchRange).AddressLocal = WatchRange.Address Then
If Range("A1").Value = 1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If
End Sub
 
C

climax

I need a code that does the same as when I press the print screen
button.
It has to take a picture of my whole desktop and copy it to the
clipboard.
I need to see some results on other programs that are running together
with exel.

Thanks
Johan
 
R

rsenn

Go to download.com and find screen capture programs. I use one called
Screenprint32. Snagit is another good one.
 
Top