como usar Alt+PrintScreen para um formulario sendo apresentado atravez do VBA

[marcio.cartacho]

Bom Dia Pessoal,

estou precisando acionar as teclas Alt+PrintScreen via código VBA no momento de execução de um dos meus formulários pos terei de colar esta imagem em uma pagina do Word, Alguem poderia me ajudar?

Obrigado.

[Filipe Francisco]

Na altura desejada para a captura do Ecran, carregue em ALT + PrintScreen e directamento no word onde quer colocar a captura CRT + V (Colar).

Teclas Alt + PrintScreen - copia para o clipboard o formulário activo
Tecla PrintScreen (sozinha) - captura todo o ecra do monitor

Cumprimentos

[marcio.cartacho]

Bom dia, Felipe!

estou tentando capturar a tela mas atraves do codigo em vba, as teclas para capturar Alt + PrintScreen eu sei como utilizar, mas como devo programar para que atraves de um buttom eu consiga capturar a tela, teria como?

Obrigado.

[Filipe Francisco]

Olá Marcio,

Não tinha percebido bem o seu pedido, agora já percebi. Vamos ver se consigo ajudá-lo:

Exsite a possibilidade em vba de usar o SENDKEYS (funciona com todas as teclas do teclado:


SendKeys "NOME DA TECLA"


Printcreen = {PRTSC}
ALT = &


depois de ter testado no autocad o printcreen não funciona directamente, fui a procura de uma possivel solução e encontrei o seguinte:

PRINTSCREEN

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 VK_SNAPSHOT = &H2C

Sub PrintScreen()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub


ALTPRINTSCREEN

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 AltPrintScreen()
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub


Funciona perfeitamente, depois é só colocar no Word ou noutro programa de imagem para colar a captura do ecran


Espero que isto ajude

[marcio.cartacho]

Felipe, Muito Obrigado!

funcionou perfeitamente.

[Filipe Francisco]

Ainda bem que serviu...

Cumprimentos