Put a little wait in your code to make sure the file is completed...
WAIT WIND 'Printing' Timeout 2
>Help:
>I've written a EXE called PrintScreen.exe in Delphi 5. This VFP program file is invoked by Shift-F5 combination from within my VFP 6.0 sp5 app. Compiled as an EXE, but run as do MRM in the command window, everything works as expected. When I run MRM.exe from Windows 2000, the PrintScreen.exe app, generates an error "Cannot open file 56347638.bmp". I'm using Steve Ruhl's ScrnPrint utilities from the files section and Ed Rauh's API_AppRun utility.
>
>I'm guessing that the BMP files isn't quite closed when PrintScreen tries to load it. After the error message, I can dbl-click on it on the HD and my Futuris Imager app, loads it just fine.
>
>TIA,
>Mike Timpe
>Micro Vane, Inc.
>
>
>
>* BEGIN PRINTSCR.PRG()
>* Description:
>* Parameters: -
>* -
>* Returns: -
>* Notes: 1.
>* 2.
>* Revisions: 07/11/2001 - MWT
>* - Created
>
>local lnSelect
>local lcProcedures
>local lcImageFileName
>lcProcedures = SET( "PROCEDURE" )
>lnSelect = select()
>
>create cursor PrintScreen (ScreenPrt G, Notes M)
>select PrintScreen
>append blank
>
>SET PROCEDURE TO appmeth additive
>lcImageFileName = SaveasBitmap()
>SET PROCEDURE TO (lcProcedures)
>oRunit = newobject("Api_AppRun", "Process.vcx")
>oRunit.icCommandline = "PrintScreen.exe " + (lcImageFileName)
>oRunit.LaunchAppAndWait()
>oRunit = .NULL.
>Delete File lcImageFileName
>
>select (lnSelect) && Restore to the original work area
>
>* END PRINTSCR.PRG()
Wayne Myers, MCSD
Senior Consultant
Forte' Incorporated
"The only things you can take to heaven are those which you give away" Author Unknown