Macro para imprimir una tabla que se actualiza periódicamente

11/05/2006 - 00:50 por Contaduria \(MVP\) | Informe spam

Hola Amigos:

Quiero hacer una macro que me permita imprimir un rango de datos de una
tabla. Día a día se van actualizando los registros de dicha tabla, por lo
que, por ejemplo, al fin de un día nos encontramos con que el último
registro se encuentra en la fila 250, al día siguiente el último registro
esta en la fila 400, y al siguiente en la fila 140, y asi va variando día a
día.
Probe con una macro con el siguiente codigo:

Range("A1:G1000").Select
Selection.PrintOut Copies:=1, Collate:=True

Pero como era de esperarse me imprime tambien los registros en blanco con el
consiguiente desperdicio de papel. Como puedo hacer para que el programa me
reconozca cual es la última fila con resistros e imprima la tabla solo hasta
ahi?
Desde ya muchísimas gracias.
Contaduria

Siga el debate

16 respuestas

Tengo una respuesta

Preguntas similare

Macro para imprimir una Hoja con datos..

Leer las respuestas

#1 Francisco MTY

11/05/2006 - 03:16 | Informe spam

Envie archivo al personal y anexo link para observacion

http://mx.geocities.com/gozalo_ya/M...rangos.xls

Saludos
-
Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy

"El progreso debe ser un movimiento ordenado y racional hacia una meta
fija... y no un torbellino de direcciones falsas y encontradas."

Responder a este mensaje

#2 Manuel Romero

11/05/2006 - 05:39 | Informe spam

Range("A1").CurrentRegion.PrintOut

Hola Amigos:

Quiero hacer una macro que me permita imprimir un rango de datos de una
tabla. Día a día se van actualizando los registros de dicha tabla, por lo
que, por ejemplo, al fin de un día nos encontramos con que el último
registro se encuentra en la fila 250, al día siguiente el último registro
esta en la fila 400, y al siguiente en la fila 140, y asi va variando día a
día.
Probe con una macro con el siguiente codigo:

Range("A1:G1000").Select
Selection.PrintOut Copies:=1, Collate:=True

Pero como era de esperarse me imprime tambien los registros en blanco con el
consiguiente desperdicio de papel. Como puedo hacer para que el programa me
reconozca cual es la última fila con resistros e imprima la tabla solo hasta
ahi?
Desde ya muchísimas gracias.

Responder a este mensaje

#3 Héctor Miguel

11/05/2006 - 06:08 | Informe spam

hola, 'anonimo/a' !

... macro que me permita imprimir... una tabla... actualizando los registros de dicha tabla
... el ultimo registro se encuentra en la fila 250, al dia siguiente... en la fila 400, y al siguiente en la fila 140 [...]

una alternativa mas...
si suponemos que 'el rango real' va de/creciendo por razones de ELIMINAR/agregar contenidos en el mismo...
[OJO: NO si se mantienen algunos formatos 'personalizados' aplicados a las celdas 'vacias']...
prueba con instrucciones +/- como la siguiente:
Sub Imprime_el_rango_usado()
With ActiveSheet
.UsedRange
.PrintOut
End With
End Sub

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

Responder a este mensaje

#4 Héctor Miguel

11/05/2006 - 07:41 | Informe spam

hola, Francisco !

Solo con la observacion de que se imprimen lo objetos dentro de la hoja, pero el codigo me funciona.

dado que OP no ha mencionado 'objetos dentro de la hoja' [solo columnas de la 'A' a la 'G' y filas 'variables']...
[como que] no me queda 'claro'... si la observacion es 'a favor'... o 'en contra' [y de cual codigo] :))

comentarias cuales son tus 'apreciaciones' que yo estoy 'pasando por alto' ?
saludos,
hector.

Responder a este mensaje

#5 Francisco MTY

11/05/2006 - 07:44 | Informe spam

Solo con la observacion de que se imprimen lo objetos dentro de la hoja,
pero el codigo me funciona.

Saludos

Responder a este mensaje

Ads by Google