Page 1 of 1
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 11:46 am
by Rafael Clemente
Utilizo este código para presentar una página .html en una ventana FWH (gracias, José Luis Capel!):
Code: Select all
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:Do("Navigate2",(CurDrive() + ":\"+CurDir()+"\MiHtml.htm"))
ACTIVATE WINDOW oWnd
¿Podría imprimir el contenido de esa ventana? ¿Cómo?
Gracias
Rafael
Posted: Fri Jan 26, 2007 12:09 pm
by Antonio Linares
Rafael,
Prueba con oActiveX:Do( "Print" )
Posted: Fri Jan 26, 2007 12:18 pm
by Biel EA6DD
En la misma ventana coloca un boton, algo parecido a lo siguiente.
Code: Select all
DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON OF oBar;
ACTION oActivex:Do( "ExecWB", 6,1 )
Posted: Fri Jan 26, 2007 12:39 pm
by Rafael Clemente
Antonio: Lo siento. Do("Print") no parece hacer nada. A lo mejor es que estoy pasando algo por alto.
Biel: Tu "receta" sí que ha funcionado. Perfecta. El problema es que me parece magia. ¿Me podrías aclarar qué quiere decir "ExecWB2, "6" y "1"?
Un montón de gracias
Rafael
Posted: Fri Jan 26, 2007 12:50 pm
by Rafael Clemente
Biel: Encontré la explicación. Si a alguien le interesa, está muy claro en
http://www.devx.com/vb2themax/Tip/18432
Gracias otra vez. Saludos,
Rafael
Posted: Fri Jan 26, 2007 2:34 pm
by Biel EA6DD
magia poca Rafael. Lo encontre en el MSDN. Como siempre digo, casi todo esta explicado alli, pero pa encontralo tela.
http://msdn.microsoft.com/library/defau ... ExecWB.asp
Esta es la lista de posibles parametros para OLECMDID
http://msdn2.microsoft.com/en-us/library/ms691264.aspx
y esta par OLECMDEXECOPT
http://msdn2.microsoft.com/en-us/library/ms683930.aspx
Posted: Tue Dec 18, 2007 8:14 pm
by JmGarcia
Interesante...
Pero no acabo yo de encontrar como salvar a fichero HTML.
Con oActiveX:Do("ExecWB",4,1) me sale tipo FROM USER...
Pero no se como hacerlo automaticamente...
No me funciona (mas bien no se) con:
OLECMDID_SAVE = 3,
OLECMDID_SAVECOPYAS = 5
Posted: Wed Dec 19, 2007 9:51 am
by pymsoft
Biel,
Buenisimo!!!
Yo estaba imprimiendo asi directamente: oActivex:print()
pero no preguntaba nada e imprimia directamente, ahora tengo el preview de impresión: oActivex:Do( "ExecWB", 7,1 )
Gracias, justo estaba en eso ayer, queria saber como hacer el preview.
Saludos.