SALVAR FORM COMO IMAGEM

 Tópico anterior Próximo tópico Novo tópico

SALVAR FORM COMO IMAGEM

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484680 - 28/09/2018 01:18:33

KOTOZ
RIO DE JANEIRO
Cadast. em:Setembro/2018


Citação:
:
Crie seu form "Gerar" sem borda (BorderStyle 5), sem caption, ClipControls=false e ControlBox=False.
Coloque um botão para imprimir, ao clicar no mesmo coloque este invisivel e execute me.PrintForm e depois unload me.

Citação:
:
Crie seu form "Gerar" sem borda (BorderStyle 5), sem caption, ClipControls=false e ControlBox=False.
Coloque um botão para imprimir, ao clicar no mesmo coloque este invisivel e execute me.PrintForm e depois unload me.

Printform ele salva em um formato de impressão xpt eu acho, eu preciso em JPG



#484681 - 28/09/2018 01:29:28

KOTOZ
RIO DE JANEIRO
Cadast. em:Setembro/2018


Citação:
:
Você conseguiu usar as teclas?
SendKeys "%PRTSC", acho que é isso...
Ele deu erro? Testa em um outro aplicativo tipo word ou paint e tenta colar depois de mandar as teclas...
Pra vc colar da área de rtansferencia.. Picture = Clipboard.GetData()


ele da um erro de permission denied com o comando sendkeys




#484692 - 28/09/2018 13:38:49

DJOU
VALINHOS
Cadast. em:Dezembro/2003


Citação:
:
:
Você conseguiu usar as teclas?
SendKeys "%PRTSC", acho que é isso...
Ele deu erro? Testa em um outro aplicativo tipo word ou paint e tenta colar depois de mandar as teclas...
Pra vc colar da área de rtansferencia.. Picture = Clipboard.GetData()

ele da um erro de permission denied com o comando sendkeys


tenta assim:

Option Explicit

Const VK_MENU = 18
Const VK_SNAPSHOT = 44
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Function SaveFormPic() As Picture
Dim pic As StdPicture
Set pic = Clipboard.GetData(vbCFBitmap)
  keybd_event VK_MENU, 0, 0, 0   'Send ALT key
  keybd_event VK_SNAPSHOT, 0, 0, 0   'Send PRINT SCREEN key
  DoEvents
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0   'Release PRINT SCREEN key
  keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0   'Release ALT key
  DoEvents
  Set SaveFormPic = Clipboard.GetData(vbCFBitmap)
Clipboard.SetData pic, vbCFBitmap
End Function


Private Sub cmd_Save_Click()
txt_ImgName.Visible = False
cmd_Save.Visible = False
SaveFormPic
SavePicture SaveFormPic, CurDir & "\" & txt_ImgName.Text & ".bmp"  'picture location
Clipboard.Clear
End Sub

Que LeParkour o que.... o negócio é o CFC!!

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário