Página 1 de 1

[resolvido] Botão PRINT SCREEN

Enviado: 07 Nov 2017, 12:23
por flaviolealrj
Bom dia...
estou precisando de uma ajuda.
Gostaria de colocar um botao de printscreen em um formulario para printa-lo.
alguem me ajuda?

Re: Botão PRINT SCREEN

Enviado: 07 Nov 2017, 13:43
por Damasceno Jr.
Num módulo global cole
Código:
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


No botão do seu formulário chame pela função AltPrintScreen

Re: Botão PRINT SCREEN

Enviado: 07 Nov 2017, 17:52
por flaviolealrj
Não consegui nada. se puder ser mais detalhista irei agradecer.
desculpe-me por ser leigo

Re: Botão PRINT SCREEN

Enviado: 08 Nov 2017, 16:29
por Damasceno Jr.
Exemplo em anexo.

Re: Botão PRINT SCREEN

Enviado: 09 Nov 2017, 18:49
por flaviolealrj
Damasceno JR, muitíssimo obrigado! funcionou perfeitamente!

Re: [resolvido] Botão PRINT SCREEN

Enviado: 10 Nov 2017, 09:55
por flaviolealrj
:D

Re: [resolvido] Botão PRINT SCREEN

Enviado: 06 Fev 2018, 19:34
por baretta
esse código nao funciona em 64 bits

Re: [resolvido] Botão PRINT SCREEN

Enviado: 06 Fev 2018, 21:04
por Damasceno Jr.