Codigo Basic en Excel

09/01/2006 - 02:46 por Intruso | Informe spam
Holas;
La curiosidad es la siguiente; tenia un codigo en un boton de comando
incrustrado en excel de la forma siguiente para resumir

.PageSetup.PrintArea = "$A$1:$N$32"
.PrintOut

Lo cree en excel 2002 y no me daba problemas, ya que me enviaba a imprimir
el area que yo necesitaba, esto en Win98, WinMe y en WinXP.
Pero en Windows 95, con Oficce 97, me manda un mensaje de error; "error en
tiempo de ejecucion 1004".

Alguna sugerencia???. o alguna aclaración???, actualizar el office o algo
similar???,

Preguntas similare

Leer las respuestas

#1 guarracuco
09/01/2006 - 14:00 | Informe spam
Por lo que veo, debes tener una instruccion With, para referirte a un objeto;
bien, creo el error está justo en la declaración. Coloca esa parte aqui para
ojearla; tambien puedes probar con el "Examinador de objetos" presionando F2
en la ventana de código VBA y buscar en el computador que tiene Win95 a ver
si alguna de esa propiedad /método (PrintArea o printout) no es igual .
atte carlos
guarracuco/venezuela


"Intruso" escribió:

Holas;
La curiosidad es la siguiente; tenia un codigo en un boton de comando
incrustrado en excel de la forma siguiente para resumir

.PageSetup.PrintArea = "$A$1:$N$32"
.PrintOut

Lo cree en excel 2002 y no me daba problemas, ya que me enviaba a imprimir
el area que yo necesitaba, esto en Win98, WinMe y en WinXP.
Pero en Windows 95, con Oficce 97, me manda un mensaje de error; "error en
tiempo de ejecucion 1004".

Alguna sugerencia???. o alguna aclaración???, actualizar el office o algo
similar???,



Respuesta Responder a este mensaje
#2 Intruso
09/01/2006 - 20:56 | Informe spam
Hi. Revisare lo que me indicas;
el codigo es:

Private Sub imprimir_Click()
With Worksheets("DATOS")
.Visible = True
.PageSetup.PrintArea = "$A$1:$O$37"
.PrintOut
.Visible = False
End With
End Sub

Me funciona bien en Office 2000 2002 2003
Pero no en Office 97, este en windows 95

"guarracuco" escribió en el mensaje
news:
Por lo que veo, debes tener una instruccion With, para referirte a un


objeto;
bien, creo el error está justo en la declaración. Coloca esa parte aqui


para
ojearla; tambien puedes probar con el "Examinador de objetos" presionando


F2
en la ventana de código VBA y buscar en el computador que tiene Win95 a


ver
si alguna de esa propiedad /método (PrintArea o printout) no es igual .
atte carlos
guarracuco/venezuela


"Intruso" escribió:

> Holas;
> La curiosidad es la siguiente; tenia un codigo en un boton de comando
> incrustrado en excel de la forma siguiente para resumir
>
> .PageSetup.PrintArea = "$A$1:$N$32"
> .PrintOut
>
> Lo cree en excel 2002 y no me daba problemas, ya que me enviaba a


imprimir
> el area que yo necesitaba, esto en Win98, WinMe y en WinXP.
> Pero en Windows 95, con Oficce 97, me manda un mensaje de error; "error


en
> tiempo de ejecucion 1004".
>
> Alguna sugerencia???. o alguna aclaración???, actualizar el office o


algo
> similar???,
>
>
>
Respuesta Responder a este mensaje
#3 Héctor Miguel
10/01/2006 - 07:16 | Informe spam
hola, Intruso !

el codigo es:
Private Sub imprimir_Click()
With Worksheets("DATOS")
.Visible = True
.PageSetup.PrintArea = "$A$1:$O$37"
.PrintOut
.Visible = False
End With
End Sub
Me funciona bien en Office 2000 2002 2003
Pero no en Office 97, este en windows 95



asumiendo que el 'boton de comando' al que esta asignada la macro 'viene' de la barra de herramientas 'cuadro de controles'...
-> revisa en las propiedades de dicho boton -> en el proyecto de macros [estando en modo de dise#o]
-> en el modulo de codigo de 'esa' hoja...
-> que la propiedad 'TakeFocusOnClick' -> este en FALSE ;)
[por omision se establece en TRUE... PERO... en excel-97 NO 'permite' activar hojas difeerntes] :-(

comentas si se trata de algo distinto ?
saludos,
hector.
Respuesta Responder a este mensaje
#4 cristina
10/01/2006 - 13:46 | Informe spam
iuhikihkih ihijhihkjh kjhk



Intruso wrote:
Holas;
La curiosidad es la siguiente; tenia un codigo en un boton de comando
incrustrado en excel de la forma siguiente para resumir

.PageSetup.PrintArea = "$A$1:$N$32"
.PrintOut

Lo cree en excel 2002 y no me daba problemas, ya que me enviaba a imprimir
el area que yo necesitaba, esto en Win98, WinMe y en WinXP.
Pero en Windows 95, con Oficce 97, me manda un mensaje de error; "error en
tiempo de ejecucion 1004".

Alguna sugerencia???. o alguna aclaración???, actualizar el office o algo
similar???,


Respuesta Responder a este mensaje
#5 Intruso
11/01/2006 - 14:52 | Informe spam
Muchas gracias por el detalle, aunque para no hacerse tanto lio le
instalaron el Office 2000 y se acabo el problema, jajajja :P. Gracias de
todas formas, si puedo tener la oportunidad de examinar este paso lo haré.

"Héctor Miguel" escribió en el mensaje
news:#lC$
hola, Intruso !

> el codigo es:
> Private Sub imprimir_Click()
> With Worksheets("DATOS")
> .Visible = True
> .PageSetup.PrintArea = "$A$1:$O$37"
> .PrintOut
> .Visible = False
> End With
> End Sub
> Me funciona bien en Office 2000 2002 2003
> Pero no en Office 97, este en windows 95

asumiendo que el 'boton de comando' al que esta asignada la macro 'viene'


de la barra de herramientas 'cuadro de controles'...
-> revisa en las propiedades de dicho boton -> en el proyecto de macros


[estando en modo de dise#o]
-> en el modulo de codigo de 'esa' hoja...
-> que la propiedad 'TakeFocusOnClick' -> este en FALSE ;)
[por omision se establece en TRUE... PERO... en excel-97 NO 'permite'


activar hojas difeerntes] :-(

comentas si se trata de algo distinto ?
saludos,
hector.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida