VBA: using SendKeys to print the screen

[JaredSorensen]

I would like to emulate hitting the Alt+Ctrl+"Print Screen" button on the keyboard with the following code. I know there are some restrictions around using the PrintScreen with the SendKeys, but I'm hoping I can still figure out how to make this work.

Following is the first part of a larger macro I've set up. If I can just get this to work, that would be perfect.

Sub PrintTheScreen()
Application.SendKeys "^%" & "PRTSC"
End Sub

Thanks.

Jared

 

[JaredSorensen]

Suffice it to say that there are times that I want a quick printout of what I'm working on, sometimes to mark up. I often work in large matrices which I'd never want to print out the entire 20,000 rows, however I may want to print an area of interest.

Jared

 

[Norie]

Jared

Well couldn't you have code that prints either only the selected cells or the visible cells?

 

[JaredSorensen]

That would certainly be an idea. Thank you.

I'm rather inexperienced in VBA; I know there are often multiple ways of getting from A to B; I usually am happy just to get something to work. Elegance is a wonderful principle for people who actually know what they're doing. : )

THanks for your suggestions.

Jared

 

[Norie]

Jared

If you do want to take a look at what I suggest I would recommend you look at the VisibleRange, Selection, Address and PrintArea properties.

The first will return a Range object representing the visible cells.

The second will return the current selection, which will be a Range object if you've select cells.

The third will allow you to get the addresses for the 2 above.

And finally you can use that to set the print area with the 4th.

 

[JaredSorensen]

Thanks for your help, Norie.

Jared

 

[paul_a_uk]

Try this:

Sub PrintTheScreen()
Application.SendKeys "(%{1068})"
DoEvents
End Sub

Hi

This works for me however I would like to take it a step further and use the ALT + PrtScn to grab just the active window. How is this achieved ?

Thanks
Paul