Imprimir desde ActiveX

[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

[Antonio Linares]

Rafael,

Prueba con oActiveX:Do( "Print" )

[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 )

[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

[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

[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

[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

[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.