Hỗ trợ phím tắt tương tác màn hình máy in (nút OK) bằng VBA

Liên hệ QC

Tình nghĩa giang hồ

Thanh sơn bất cải, lục thủy trường lưu
Tham gia
29/9/20
Bài viết
321
Được thích
424
Chào anh chị, em có trường hợp này.
Em có viết code VBA tương tác với SAP, ra một Form, sau đó In ấn.
Có một vấn đề xảy ra: trong các bước đều ổn, tới bước cuối cùng, nhấn vào nút OK như hình thì máy được máy không.
Mà màn hình này không phải màn hình của SAP, cũng không phải màn hình của Exel, mà nó là màn hình của Windown.

Em có một đoạn code tương tác cho màn hình này, nhưng ngặt cái là máy chạy được máy không chạy được.
Em cũng không biết lý do.
Mã:
Dim WshShell As Object
        Set WshShell = CreateObject("WScript.Shell")
        WshShell.AppActivate "Print"
    Application.Wait (Now + TimeValue("0:00:01"))
    WshShell.SendKeys "~" ' ~ là phím tắt cho Enter 
    Set WshShell = Nothing

Trường hợp này có cách nào tương tác vào màn hình Windown rồi nhấn OK, không anh chị. Hoặc xem giúp em code bị lỗi gì.
Nhờ anh chị hỗ trợ giúp em trường hợp này, em cảm ơn anh chị.
 

File đính kèm

  • screenshot_1714791930.png
    screenshot_1714791930.png
    29.7 KB · Đọc: 19
Web KT
Back
Top Bottom