scan macro sendkeys not working

I set up a macro to do a quick scan of docs. It basically skips through all the dialogues and ends with the image centered to the page and with the crop tool selected whereby I crop and export as needed. Worked great until I installed a new Epson all-in-one printer. Which I figured would be a little different dialogue anyway.  So I thought I could just alter the code a bit.

When the scan dialogue pops up it defaults with the "scan" button highlighted but I can't just hit enter for it to actually scan. I have to click on "scan".  I can however hit alt+s and scanning starts. So I change my macro to wait a few seconds for the scan dialogue to come up then SendKeys "%(s)" but it won't do it.

Any ideas?

Parents
No Data
Reply
  • I Work with Windows 10 and CorelDRAW X5, Corel PHOTO-PAINT X5

    This code delete selected object

    Private Sub cbDeleteObject_Click()
    AppActivate "Corel PHOTO-PAINT X5"
    'SendKeys "{DELETE}" 'permission denied
    'https:/stackoverflow.com/questions/2307738/sendkeys-permission-denied-error-in-visual-basic
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys "{DELETE}"
    'SendKeys "А" 'return error
    End Sub

    The code above work well for me
    Greetings!

Children
No Data