Excel VBA質問スレ Part5

Excel VBA質問スレ Part5 at TECH

867:入院中の側近 ◆0351148456
08/03/01 08:16:12
(>>866の続き)

Public Sub printScreen()
　　Dim pVersionInfo As OSVERSIONINFO
　　pVersionInfo.dwOSVersionInfoSize = Len(pVersionInfo)
　　If pVersionInfo.dwMajorVersion >= 5 Then
　　　　Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
　　Else
　　　　Call keybd_event(VK_MENU, 0, 0, 0)
　　　　Call keybd_event(VK_SNAPSHOT, 0, 0, 0)
　　　　Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
　　　　Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0)
　　End If
End Sub

次ページ

続きを表示

1を表示