IMPRIMIR UM FORM

RICARDO.RAPA 12/09/2006 14:48:36
#170926
Como eu faço para imprimir o form sem utilizar o comando printform? Ou seja, uma outra maneira de imprimir os form

Ricardo

Grato!
USUARIO.EXCLUIDOS 12/09/2006 17:26:41
#170997
vc pode, com o form aberto usar a tecla que fica do lado do F12
PrtScSyRq, e depois abrir o Word e dar Ctrl V, que ele cola a imagem exata do form, daí é só Imprimir.
RICARDO.RAPA 12/09/2006 18:15:33
#171014
Isso eu sei! to querendo imprimir pelo vb...
USUARIO.EXCLUIDOS 12/09/2006 18:15:56
#171015
Colega, coloque um commandbutton (Command1) e tente o seguinte código:

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 Sub Command1_Click()
Const VK_SNAPSHOT = &H2C
  Clipboard.Clear
  
  keybd_event VK_SNAPSHOT, 1, 0&, 0&
  
  DoEvents
  
  Printer.PaintPicture Clipboard.GetData, 100, 100
  Printer.EndDoc
  Clipboard.Clear
End Sub


Esse código faz o que o colega acima falou, ele dá um PrintScreen e dpois recupera com o Clipboard.GetData, só que td por código...flw
Tópico encerrado , respostas não são mais permitidas
Voltar