Poner como pantalla activa un Documento de Word
Publicado por Diego (1 intervención) el 16/01/2007 16:10:58
Hola.
Necesito ayuda urgentemente. Tengo una funcion en VB 6.0, en la cual se prepara un documento word a traves de una plantilla para poder mostrarlo e imprimirlo si se desea.
El problema reside en que utilizo una funcion de una clase creada que intenta ponerme la ventana de word como la ventana activa y lo hace pero la abre dos veces de tal forma que en una aparece el documento word como deseo y en otra no aparece nada.
He intentado averiguar porque me muestra este segundo documento vacio pero la vedad es que no he conseguido nada de nada
El codigo de esta funcion es:
Public Function fg_blnActivarVentana(pr_strClaseVentana As String) As Boolean
Dim l_lngHandle As Long
fg_blnActivarVentana = True
l_lngHandle = FindWindow(pr_strClaseVentana, vbNullString)
If l_lngHandle > 0 Then
ShowWindow l_lngHandle, 10 'Opción por defecto
ShowWindow l_lngHandle, 3 'Maximizar
Else
fg_blnActivarVentana = False
End If
end function
Si alguien sabe como evitar que esto ocurrra, por favor que me lo haga saber.
Gracias
Necesito ayuda urgentemente. Tengo una funcion en VB 6.0, en la cual se prepara un documento word a traves de una plantilla para poder mostrarlo e imprimirlo si se desea.
El problema reside en que utilizo una funcion de una clase creada que intenta ponerme la ventana de word como la ventana activa y lo hace pero la abre dos veces de tal forma que en una aparece el documento word como deseo y en otra no aparece nada.
He intentado averiguar porque me muestra este segundo documento vacio pero la vedad es que no he conseguido nada de nada
El codigo de esta funcion es:
Public Function fg_blnActivarVentana(pr_strClaseVentana As String) As Boolean
Dim l_lngHandle As Long
fg_blnActivarVentana = True
l_lngHandle = FindWindow(pr_strClaseVentana, vbNullString)
If l_lngHandle > 0 Then
ShowWindow l_lngHandle, 10 'Opción por defecto
ShowWindow l_lngHandle, 3 'Maximizar
Else
fg_blnActivarVentana = False
End If
end function
Si alguien sabe como evitar que esto ocurrra, por favor que me lo haga saber.
Gracias
Valora esta pregunta
0