在SAP中使用VBA的打印屏幕

如果您使用的是SendKeys，请避免使用它。我在过去的项目中使用过它，它似乎前后不一致且容易出错。

您可以在模块顶部使用以下代码段，并在需要时调用它。

Option Explicit
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 KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Sub PrintScreen()    keybd_event VK_SNAPSHOT, 1, 0, 0
 End Sub