OutputTo and Snapshot problem

[SimonCook]

I have a module which runs a report in Access in preview mode and attempts
to take a 'snapshot' of it. (I have reference Microsoft Access 9.0).

The attached code will open the report in a 'shell' of access, but will not
perform the 'snapshot'. Access prompts me to 'select format' and then asks
me for a file name? I assumed that this is already in the statement! What
am I doing wrong? Is the syntax incorrect?

Thanks


With mobjAccess.DoCmd
'Open report in preview mode so I can pass in a where clause
.OpenReport msReportName,acViewPreview, "", msWhereClause
'save report to snapshot format
.OutputTo acOutputReport, "", acFormatSNP, "C:\Invrep\snap.snp", true, ""
end with

How about taking a snapshot of the active window?

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

Private Const VK_SNAPSHOT = &H2C


Public Function SaveScreen(ByVal theFile As String) As Boolean
On Error Resume Next

    'To get the Active Window
    Call keybd_event(vbKeySnapshot, 0, 0, 0)

    SavePicture Clipboard.GetData(vbCFBitmap), theFile

SaveScreen = True
Exit Function
End Function

Usage

Call SaveScreen("C:\Windows\Desktop\activewin.bmp")