Archivo Snapshot sin datos

Si hablas de Office 2000 conozco el problema bastante bien.
Consegui solucionarlo en varios pcs, pero en algunos no valia ninguna de las
soluciones.
Dime si es 2000 y te comento.


"Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en el
mensaje news:OzXb#

Saludos a todos.
En una maquina con Access y WinMe, no puedo ver los informes en formato
snap, vienen en blanco, sin datos. Esto me pasa aen algunas maquinas.
Alguien conoce la forma de solucionar el problema?

Gracias!

Saludos
Ing. José A. Giménez [Py]
gimenezj(arroba)hotmail(punto)com

Es asi, es 2000, gracias por tu ayuda!

Saludos
Ing. José A. Giménez [Py]
gimenezj(arroba)hotmail(punto)com
"Jesus" escribió en el mensaje
news:

Si hablas de Office 2000 conozco el problema bastante bien.
Consegui solucionarlo en varios pcs, pero en algunos no valia ninguna de

las

soluciones.
Dime si es 2000 y te comento.


"Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en el
mensaje news:OzXb#
> Saludos a todos.
> En una maquina con Access y WinMe, no puedo ver los informes en formato
> snap, vienen en blanco, sin datos. Esto me pasa aen algunas maquinas.
> Alguien conoce la forma de solucionar el problema?
>
> Gracias!
>
> Saludos
> Ing. José A. Giménez [Py]
> gimenezj(arroba)hotmail(punto)com
>
>

Bueno, el tema es largo. Vamos a empezar por la base.
Reinstala el snapshot viewer, lo puedes bajar de microsoft.
Copia todo lo que te pongo entre inicio y fin, sin estas lineas en el
Notepad y lo guardas como RegistrarPath.vbs. Una vez creado le das doble
click y te registrará msoe.dll
****** Inincio ********
Dim fso, cArchivoEnglish, cArchivoSpanish

cArchivoSpanish = "C:\ARCHIVOS DE PROGRAMA\OUTLOOK EXPRESS\MSOE.DLL"
cArchivoEnglish = "C:\PROGRAM FILES\OUTLOOK EXPRESS\MSOE.DLL"

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(cArchivoSpanish)) Then
Registrar cArchivoSpanish
ElseIf (fso.FileExists(cArchivoEnglish)) Then
Registrar cArchivoEnglish
Else
WScript.Echo "No se encuentra el archivo msoe.dll o no se tiene una
versión igual o superior a Outlook Express 5.5"
cArchivoSpanish = InputBox("Introduzca el path completo Outlook Express"
+ vbCrLf + "Por ejemplo: C:\Archivos de programa\Outlook Express")
cArchivoSpanish = cArchivoSpanish & "\MSOE.DLL"
If (fso.FileExists(cArchivoSpanish)) Then
Registrar cArchivoSpanish
Else
WScript.Echo "Imposible localizar archivo msoe.dll"
End if
End If

Function Registrar(Valor)
Dim key

Set Sh = CreateObject("WScript.Shell")
key = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Outlook Express"

Sh.RegWrite key & "\DllPathEx", Valor, "REG_SZ"
WScript.Echo "Valor registrado: " & Sh.RegRead(key & "\DllPathEx")
End Function
******* Fin********
Supongo que no te da ningun mensaje el snapshot no?
Bueno, ya seguiremos




"Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en el
mensaje news:

Es asi, es 2000, gracias por tu ayuda!

Saludos
Ing. José A. Giménez [Py]
gimenezj(arroba)hotmail(punto)com
"Jesus" escribió en el mensaje
news:
> Si hablas de Office 2000 conozco el problema bastante bien.
> Consegui solucionarlo en varios pcs, pero en algunos no valia ninguna de
las
> soluciones.
> Dime si es 2000 y te comento.
>
>
> "Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en

el

> mensaje news:OzXb#
> > Saludos a todos.
> > En una maquina con Access y WinMe, no puedo ver los informes en

formato

> > snap, vienen en blanco, sin datos. Esto me pasa aen algunas maquinas.
> > Alguien conoce la forma de solucionar el problema?
> >
> > Gracias!
> >
> > Saludos
> > Ing. José A. Giménez [Py]
> > gimenezj(arroba)hotmail(punto)com
> >
> >
>
>

Ok, gracias voya probar
Si hay otros pasos, lo podrias postear aqui por favor?
Justo no estoy en donde engo la maquina que me da error.

Nuevamente gracias!!!

"Jesus" escribió en el mensaje
news:

Bueno, el tema es largo. Vamos a empezar por la base.
Reinstala el snapshot viewer, lo puedes bajar de microsoft.
Copia todo lo que te pongo entre inicio y fin, sin estas lineas en el
Notepad y lo guardas como RegistrarPath.vbs. Una vez creado le das doble
click y te registrará msoe.dll
****** Inincio ********
Dim fso, cArchivoEnglish, cArchivoSpanish

cArchivoSpanish = "C:\ARCHIVOS DE PROGRAMA\OUTLOOK EXPRESS\MSOE.DLL"
cArchivoEnglish = "C:\PROGRAM FILES\OUTLOOK EXPRESS\MSOE.DLL"

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FileExists(cArchivoSpanish)) Then
Registrar cArchivoSpanish
ElseIf (fso.FileExists(cArchivoEnglish)) Then
Registrar cArchivoEnglish
Else
WScript.Echo "No se encuentra el archivo msoe.dll o no se tiene una
versión igual o superior a Outlook Express 5.5"
cArchivoSpanish = InputBox("Introduzca el path completo Outlook

Express"

+ vbCrLf + "Por ejemplo: C:\Archivos de programa\Outlook Express")
cArchivoSpanish = cArchivoSpanish & "\MSOE.DLL"
If (fso.FileExists(cArchivoSpanish)) Then
Registrar cArchivoSpanish
Else
WScript.Echo "Imposible localizar archivo msoe.dll"
End if
End If

Function Registrar(Valor)
Dim key

Set Sh = CreateObject("WScript.Shell")
key = "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Outlook Express"

Sh.RegWrite key & "\DllPathEx", Valor, "REG_SZ"
WScript.Echo "Valor registrado: " & Sh.RegRead(key & "\DllPathEx")
End Function
******* Fin********
Supongo que no te da ningun mensaje el snapshot no?
Bueno, ya seguiremos




"Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en el
mensaje news:
> Es asi, es 2000, gracias por tu ayuda!
>
> Saludos
> Ing. José A. Giménez [Py]
> gimenezj(arroba)hotmail(punto)com
> "Jesus" escribió en el mensaje
> news:
> > Si hablas de Office 2000 conozco el problema bastante bien.
> > Consegui solucionarlo en varios pcs, pero en algunos no valia ninguna

de

> las
> > soluciones.
> > Dime si es 2000 y te comento.
> >
> >
> > "Jose A. Gimenez [Py]" <gimenezj(arroba)hotmail(punto)com> escribió en
el
> > mensaje news:OzXb#
> > > Saludos a todos.
> > > En una maquina con Access y WinMe, no puedo ver los informes en
formato
> > > snap, vienen en blanco, sin datos. Esto me pasa aen algunas

maquinas.

> > > Alguien conoce la forma de solucionar el problema?
> > >
> > > Gracias!
> > >
> > > Saludos
> > > Ing. José A. Giménez [Py]
> > > gimenezj(arroba)hotmail(punto)com
> > >
> > >
> >
> >
>
>