I'm entertaining the idea of enhancing my error logging by doing a screen
capture at the time that the error handler kicks in.

Anyone have experience with capturing the screen image and then saving it
via code?

Hi.

You can use a Windows API call to achieve this:

In the form's declaration section (i.e. at the top) enter:

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

Then, in your error capture coding put:

keybd_event VK_SNAPSHOT, 1, 0, 0

This will copy a 'Print Screen' image to the clipboard. What will you to do
with that? Let me know and I'll try and help.

Cheers.

BW





"dch3" wrote:

> I'm entertaining the idea of enhancing my error logging by doing a screen
> capture at the time that the error handler kicks in.
>
> Anyone have experience with capturing the screen image and then saving it
> via code?

From the clipboard, it'd be saving the image to a file. Off the top of the
head, mostly likely using Paint along the lines of Set objPaint =
CreateObject("Paint.Application"). Of course, I've never tried automating
paint and have no idea if its possible.

"BeWyched" wrote:

> Hi.
>
> You can use a Windows API call to achieve this:
>
> In the form's declaration section (i.e. at the top) enter:
>
> Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
> As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
>
> Then, in your error capture coding put:
>
> keybd_event VK_SNAPSHOT, 1, 0, 0
>
> This will copy a 'Print Screen' image to the clipboard. What will you to do
> with that? Let me know and I'll try and help.
>
> Cheers.
>
> BW
>
>
>
>
>
> "dch3" wrote:
>
> > I'm entertaining the idea of enhancing my error logging by doing a screen
> > capture at the time that the error handler kicks in.
> >
> > Anyone have experience with capturing the screen image and then saving it
> > via code?

No, you can't automate Paint.

How about automating Word and pasting in the image.

Try:

Dim wdApp, docNew
keybd_event VK_SNAPSHOT, 1, 0, 0
Set wdApp = CreateObject("Word.Application")
With wdApp
docNew = .Documents.Add
.Selection.Paste
.Visible = True
End With

Cheers.

BW

"dch3" wrote:

> From the clipboard, it'd be saving the image to a file. Off the top of the
> head, mostly likely using Paint along the lines of Set objPaint =
> CreateObject("Paint.Application"). Of course, I've never tried automating
> paint and have no idea if its possible.
>
> "BeWyched" wrote:
>
> > Hi.
> >
> > You can use a Windows API call to achieve this:
> >
> > In the form's declaration section (i.e. at the top) enter:
> >
> > Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
> > As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
> >
> > Then, in your error capture coding put:
> >
> > keybd_event VK_SNAPSHOT, 1, 0, 0
> >
> > This will copy a 'Print Screen' image to the clipboard. What will you to do
> > with that? Let me know and I'll try and help.
> >
> > Cheers.
> >
> > BW
> >
> >
> >
> >
> >
> > "dch3" wrote:
> >
> > > I'm entertaining the idea of enhancing my error logging by doing a screen
> > > capture at the time that the error handler kicks in.
> > >
> > > Anyone have experience with capturing the screen image and then saving it
> > > via code?

Always a possibility, but if its an office app I'd probably end up looking
flat out at sending me messages via Outlook with the image. All of my
On_Error routines call an external sub which can be easily modified.

"BeWyched" wrote:

> No, you can't automate Paint.
>
> How about automating Word and pasting in the image.
>
> Try:
>
> Dim wdApp, docNew
> keybd_event VK_SNAPSHOT, 1, 0, 0
> Set wdApp = CreateObject("Word.Application")
> With wdApp
> docNew = .Documents.Add
> .Selection.Paste
> .Visible = True
> End With
>
> Cheers.
>
> BW
>
> "dch3" wrote:
>
> > From the clipboard, it'd be saving the image to a file. Off the top of the
> > head, mostly likely using Paint along the lines of Set objPaint =
> > CreateObject("Paint.Application"). Of course, I've never tried automating
> > paint and have no idea if its possible.
> >
> > "BeWyched" wrote:
> >
> > > Hi.
> > >
> > > You can use a Windows API call to achieve this:
> > >
> > > In the form's declaration section (i.e. at the top) enter:
> > >
> > > Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
> > > As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
> > >
> > > Then, in your error capture coding put:
> > >
> > > keybd_event VK_SNAPSHOT, 1, 0, 0
> > >
> > > This will copy a 'Print Screen' image to the clipboard. What will you to do
> > > with that? Let me know and I'll try and help.
> > >
> > > Cheers.
> > >
> > > BW
> > >
> > >
> > >
> > >
> > >
> > > "dch3" wrote:
> > >
> > > > I'm entertaining the idea of enhancing my error logging by doing a screen
> > > > capture at the time that the error handler kicks in.
> > > >
> > > > Anyone have experience with capturing the screen image and then saving it
> > > > via code?

If your error log is a table, you could create a bound object frame field to
contain the picture, then set that field = the picture you copied to the
clipboard. I've never done this, but it seems like that would work. You can
imbed the picture into the field or the field can point to a file. Maybe I'm
off base with what you're trying to do.

"dch3" wrote:

> I'm entertaining the idea of enhancing my error logging by doing a screen
> capture at the time that the error handler kicks in.
>
> Anyone have experience with capturing the screen image and then saving it
> via code?

If I'm on the right track for what you're trying to do, here's a link that
may help..

http://www.devx.com/vb2themax/Tip/18341

"Jim Burke in Novi" wrote:

> If your error log is a table, you could create a bound object frame field to
> contain the picture, then set that field = the picture you copied to the
> clipboard. I've never done this, but it seems like that would work. You can
> imbed the picture into the field or the field can point to a file. Maybe I'm
> off base with what you're trying to do.
>
> "dch3" wrote:
>
> > I'm entertaining the idea of enhancing my error logging by doing a screen
> > capture at the time that the error handler kicks in.
> >
> > Anyone have experience with capturing the screen image and then saving it
> > via code?

"dch3" <(E-Mail Removed)> wrote in message
news:2A5B6FFA-50BF-4317-9D47-(E-Mail Removed)...
> I'm entertaining the idea of enhancing my error logging by doing a screen
> capture at the time that the error handler kicks in.
>
> Anyone have experience with capturing the screen image and then saving it
> via code?


I suggest you have a look at this from Stephen Lebans:

http://www.lebans.com/imageclass.htm


--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)