FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Imprimir desde ActiveX
Rafael Clemente
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 11:46 AM
Utilizo este c贸digo para presentar una p谩gina .html en una ventana FWH (gracias, Jos茅 Luis Capel!):
Code: Select all Collapse
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 12:09 PM

Rafael,

Prueba con oActiveX:Do( "Print" )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 12:18 PM
En la misma ventana coloca un boton, algo parecido a lo siguiente.
Code: Select all Collapse
DEFINE BUTTONBAR oBar OF oWnd

DEFINE BUTTON OF oBar;
           ACTION oActivex:Do( "ExecWB", 6,1 )
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
Rafael Clemente
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 12:39 PM

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
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 12:50 PM

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
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Imprimir desde ActiveX
Posted: Fri Jan 26, 2007 02:34 PM
:-) 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/default.asp?url=/workshop/browser/webbrowser/reference/Methods/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
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Imprimir desde ActiveX
Posted: Tue Dec 18, 2007 08:14 PM

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

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
pymsoft
Posts: 383
Joined: Tue Oct 11, 2005 01:01 PM
Imprimir desde ActiveX
Posted: Wed Dec 19, 2007 09:51 AM

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.

Pedro Gonzalez

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions