Impresión segun Dato de Validación

27/06/2005 - 21:15 por AnGeLo | Informe spam
Buenas Tardes,

Necesito una macro para imprimir unos datos de una Hoja, estaba tratando
guardandola pero sería muy tedioso ya que son muchos datos. Esto fue la
parte que grabé nada mas:

Sub Impresion()
Range("B5").Select
ActiveWindow.SmallScroll Down:
Range("B31").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollRow = 1
Range("B5").Select
ActiveWindow.SmallScroll Down:
Range("B31").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("E32").Select
ActiveWindow.SmallScroll Down:=-48
End Sub

Necesito imprimir una página segun vaya seleccionando los datos que tengo en
las Celdas B5 y B31 que vienen de una validación, lo que necesito es
seleccionar un dato primero en la B5, despues el que sigue en la B31, e
imprimir, despues seleccionar los dos que vienen despues de esos e imprimir
nuevamentee, y asi sucesivamente hasta llegar al último,

Espero haberme explicado.

Saludos,

Angelo Vernaza

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
27/06/2005 - 23:23 | Informe spam
hola, AnGeLo !

... imprimir... segun vaya seleccionando los datos... en... B5 y B31 que vienen de una validacion
... seleccionar un dato primero en la B5, despues... en la B31, e imprimir
... seleccionar los dos que vienen despues de esos e imprimir... y asi... hasta llegar al ultimo
Espero haberme explicado.



[creo que...] te falto 'un poquito' de informacion :)) [p.e.]
-> cuantos elementos se despliegan en la validacion de la celda 'B5' ? y cuantos en 'B31' ?
-> son 'listas directas' ? o se toman de algun rango ? [si es de un rango... de donde ?]
-> cuando dices: '... seleccionar los dos que vienen despues de esos ...' te refieres a...
- es el mismo numero de elementos en ambas listas ? y... vienen 'por parejas' ?
[lo que significaria que se puede 'prescindir' de alguna de las listas] -???-
- o significa que cada elemento de la primer lista CON TODOS los elementos de la segunda ?
[algun detalle relevante que se este quedando en el tintero] ?

comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#2 AnGeLo
27/06/2005 - 23:48 | Informe spam
Hola Héctor, abajo te respondo cada pregunta, gracias por responder
ojala me entiendas

Saludos,

Angelo Vernaza
"Héctor Miguel" escribió en el mensaje
news:#
hola, AnGeLo !

> ... imprimir... segun vaya seleccionando los datos... en... B5 y B31 que


vienen de una validacion
> ... seleccionar un dato primero en la B5, despues... en la B31, e


imprimir
> ... seleccionar los dos que vienen despues de esos e imprimir... y


asi... hasta llegar al ultimo
> Espero haberme explicado.

[creo que...] te falto 'un poquito' de informacion :)) [p.e.]
-> cuantos elementos se despliegan en la validacion de la celda 'B5' ?


y cuantos en 'B31' ?

Se despliegan 90 elementos y son los mimos para las dos celdas

-> son 'listas directas' ? o se toman de algun rango ? [si es de un


rango... de donde ?]

No son listas directas, son tomadas del rango este =N__Celular, que es un
rango definido

-> cuando dices: '... seleccionar los dos que vienen despues de esos ...'


te refieres a...
- es el mismo numero de elementos en ambas listas ? y... vienen


'por parejas' ?

Bueno me refiero a que para imprimir una página tenia pensado seleccionar en
B5 un dato, y en B31 otro asi tendria dos campos q me actualizan los otros
campos para poder imprimir una página, entonces de ahi seleccionar
nuevamente otros dos datos en cada celda e imprimir.

Ademas son dos celdas porke quiero ahorrar página para que queden en una
sola página, porke sino serían demasiadas páginas.

[lo que significaria que se puede 'prescindir' de alguna de las


listas] -???-

Sip, como te dije de esta lista =N__Celular

- o significa que cada elemento de la primer lista CON TODOS los


elementos de la segunda ?

No entendí esto.
[algun detalle relevante que se este quedando en el tintero] ?




comentas?
saludos,
hector.



Bueno voy a tratar de explicarme mejor, yo tengo una tabla antes lo que
hacia era un mail merge con word, pero me era un problema porke c me ponia
el archivo muy pesado por la tabla que creaba y los formatos, y lo que pense
es hacer la misma tabla en word, pero seleccionando los datos de la
validación e ir imprimiendolos pero claro una tabla en la parte superior y
otra en la inferior para no gastar páginas, pero eso de irlos seleccionando
uno a uno es mucho estress...

Espero q ahora si me ayas entendido,

Saludos,
Respuesta Responder a este mensaje
#3 Héctor Miguel
28/06/2005 - 01:42 | Informe spam
hola, AnGeLo !

... 90 elementos... los mismos para las dos celdas
... tomadas del rango este =N__Celular, que es un rango definido
... para imprimir una pagina tenia pensado seleccionar en B5 un dato, y en B31 otro
... tendria dos campos q me actualizan los otros campos para poder imprimir una pagina
... de ahi seleccionar nuevamente otros dos datos en cada celda e imprimir
... son dos celdas porke quiero ahorrar pagina para que queden en una sola pagina, porke sino serian demasiadas paginas [...]
... antes... hacia... un mail merge con word, pero... c me ponia el archivo muy pesado por la tabla... y los formatos
... pense... hacer la misma tabla... seleccionando los datos de la validacion e ir imprimiendolos
... una tabla en la parte superior y otra en la inferior para no gastar paginas, pero... irlos seleccionando uno a uno es mucho estress...



[creo que me perdi entre tantas paginas para ahorrar paginas] :))
no se si cada pagina la imprimas de manera individual o exista un salto de pagina para hacer la separacion -?-
[tembien creo que] podrias 'ahorarte' una de las validaciones si 'sujetas' TODOS los campos de las paginas a una sola validacion ;)
prueba con una macro +/- como la siguiente...
en un modulo de codigo 'normal' ==Sub Impresion()
Dim Celda As Range
For Each Celda In Range("N__Celular")
Range("b5,b31") = Celda
ActiveSheet.PrintPreview 'PrintOut Copies:=1
Next
End Sub

si 'ves' que vaya a funcionar 'tal cual' mis supuestos :D quita el 'printpreview' y deja el 'printout'
si cualquier duda [o surgen detalles adicionales]... comentas?
saludos,
hector.
Respuesta Responder a este mensaje
#4 AnGeLo
28/06/2005 - 15:26 | Informe spam
Hola Hector, Funciona perfecto, pero no me pude ahorrar páginas jajajaja,
pero asi esta bien, si igual las paga la oficina, una vez mas gracias por tu
ayuda.

Saludos,

Angelo Vernaza

"Héctor Miguel" escribió en el mensaje
news:
hola, AnGeLo !

> ... 90 elementos... los mismos para las dos celdas
> ... tomadas del rango este =N__Celular, que es un rango definido
> ... para imprimir una pagina tenia pensado seleccionar en B5 un dato, y


en B31 otro
> ... tendria dos campos q me actualizan los otros campos para poder


imprimir una pagina
> ... de ahi seleccionar nuevamente otros dos datos en cada celda e


imprimir
> ... son dos celdas porke quiero ahorrar pagina para que queden en una


sola pagina, porke sino serian demasiadas paginas [...]
> ... antes... hacia... un mail merge con word, pero... c me ponia el


archivo muy pesado por la tabla... y los formatos
> ... pense... hacer la misma tabla... seleccionando los datos de la


validacion e ir imprimiendolos
> ... una tabla en la parte superior y otra en la inferior para no gastar


paginas, pero... irlos seleccionando uno a uno es mucho estress...

[creo que me perdi entre tantas paginas para ahorrar paginas] :))
no se si cada pagina la imprimas de manera individual o exista un salto de


pagina para hacer la separacion -?-
[tembien creo que] podrias 'ahorarte' una de las validaciones si 'sujetas'


TODOS los campos de las paginas a una sola validacion ;)
prueba con una macro +/- como la siguiente...
en un modulo de codigo 'normal' ==> Sub Impresion()
Dim Celda As Range
For Each Celda In Range("N__Celular")
Range("b5,b31") = Celda
ActiveSheet.PrintPreview 'PrintOut Copies:=1
Next
End Sub

si 'ves' que vaya a funcionar 'tal cual' mis supuestos :D quita el


'printpreview' y deja el 'printout'
si cualquier duda [o surgen detalles adicionales]... comentas?
saludos,
hector.


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