8/07/2006

Problemas con el RichTX32.OCX

Queridos, comos sabeis los chicos de MS, han decido que este ocx es una fuente potencial de peligro,
por lo que a partir de la versión XP nos han obligado a buscar un componente que encapsule a este.

Mira por donde los chicos propietarios del copy de la evolución nos ayudan a mantener nuestras
neuronas en forma. Pero si alguien desea saltarse esa obligación aqui va esto que he encontrado.

http://p2p.wrox.com/topic.asp?TOPIC_ID=10894 ( al fín encontre...donde lo hube leido... :))

Here's the solution for you Access 2003 and some Access 2002/XP SP3 Users for using the RichTX32.OCX
ActiveX control in your Access databases :)
This method will allow Internet Explorer to also use Richtx32.ocx
which does open a security flaw to be opened up, but it's the choice you take. See the KB article at MS for
more info on this.
To allow Access 2002 w/SP3 or 2003 to use this control, you need to edit the registry
via regedit, find the following key:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\InternetExplorer\ActiveX Compatibility\{3B7C8860-D78F-101B-B9B5-04021C009402}

This should be there, I am dead sure that RichTx32.ocx

always takes the class ID of 3B7C8860-D78F-101B-B9B5-04021C009402
Within this key there should be a DWORD value called "Compatibility Flags".
If this is set to 0x400 (hexadecimal 400, decimal 1024) then change it to
simply 0 (decimal or hex).
You should now be able to insert the richtext control on your forms and use
the control again as per usual in Access 2002 w/SP3 or Access 2003.
I tested this with IE 6 to check if it blocks it and Access 2003 and changing this registry
key does indeed remove the block.
Y OS PREGUNTAREIS ...PERO COMO C....IMPRIMO... facilisimo

http://groups.google.es/group/comp.databases.ms-access/browse_thread/thread/_
2a03bf181e0f0de2/45e4fa2cc0da5558?lnk=st&q=PRINT+Richtextbox+IN_
+ACCESS&rnum=1&hl=es#45e4fa2cc0da5558
gracias a la solución que el colega ha posteado y que consiste en:

1ª inserta un commonddialog y denominalo CommondDialog 2ªº inserta un rigthtexbox y denominalo MonRTF

Private Sub cmdprint_Click()
Me.CommonDialog.Flags = cdlPDReturnDC + cdlPDNoPageNums
If MonRTF.SelLength = 0 Then
CommonDialog.Flags = CommonDialog.Flags + cdlPDAllPages
Else
CommonDialog.Flags = CommonDialog.Flags + cdlPDSelection
End If
CommonDialog.ShowPrinter
MonRTF.SelPrint CommonDialog.hdc
End Sub
ea... que os aproveche

Etiquetas:

0 Comments:

Publicar un comentario

Links to this post:

Crear un enlace

<< Home

Google

Webrings



Get Free Shots from Snap.com