impremir hoja llena con datos

Hola amigo Héctor, aquí te mando un ejemplo de Excel,Tengo 6 pagina en una
hoja de Excel con un formato de cuadros conEncabezado, las pagina 1 y 2 y 4
y 6 cada página contiene un mensaje deTexto, lo que necesito cuando imprimo
por impresión rápida que me imprimelasPaginas que tenga dentro de la página
mensaje de texto. GraciasKM***VE

"Héctor Miguel" escribió en el mensaje de
noticias:

hola, KM !

... es un formato de la A hasta las Z y la ultima fila es 125.
los datos que lleno en la primera pagina es de la fila 28 al 58 y la
segunda pagina fila 61 al 91
y la tercera pagina es fila 94 al 124 en caso contengas datos en algunas
de estas filas
que imprime la pagina el rango de columna es de la A hasta la Z ...

sigo "sin ver" como pueda determinarse sobre cual columna basar "la ultima
fila" con datos "reales" a imprimir
(ni cual debiera ser la ultima fila correspondiente a la pagina de un
"formato" -supongo- con textos predefinidos ?)

en via de mientras, revisa los mensajes 5 y 7 de estas conversaciones: ->
http://tinyurl.com/3kl5qq

saludos,
hector.

hola, KM !

... mando un ejemplo de Excel,Tengo 6 pagina en una hoja de Excel con un formato de cuadros conEncabezado
las pagina 1 y 2 y 4 y 6 cada pagina contiene un mensaje deTexto
lo que necesito cuando imprimo por impresion rapida
que me imprime las Paginas que tenga dentro de la pagina mensaje de texto...

(creo que) algunos terminos podrian causar confusion en algun sentido (p.e. cuando dices)...

- "... en una hoja de excel ..."
-> te refieres (p.e.) a la Hoja1 ?... o al Libro1.xls ?

- "... 6 paginas ..."
-> te refieres a 6 paginas IMPRESAS de la Hoja1 ?
cual seria el rango de impresion de cada "pagina" (salida a la impresora) ?
-> te refieres a las hojas Hoja1, Hoja2,... Hoja6 del Libro1.xls ?

- que significa: "... cada pagina contiene un mensaje de texto ..." ???
-> "que" es un mensaje de texto ?
-> que dice el mensaje de texto ?
-> no existe este "mensaje de texto" en las paginas (u Hojas ?) 2, 3, 5, ... ???

- asumo que por "impresion rapida" te refieres a pulsar el icono de la impresora (sin establecer nada especial) ?
esto requeriria usar codigo (p.e.) en el evento '_beforeprint' en el modulo ThisWorkbook (dependiendo del significado de "pagina")

saludos,
hector.

hola amigo,
*en una hoja solamente que estoy trabajando,
*si son 6 pagina de una hoja1.
*el Rango de impresión es lo que se determina en configuración de pagina
desde la misma configuración de Excel.
*si me refiero a las hojas Hojas1,Hojas2,del Libro1.xls _ pero para la
impresión son las pagina de una hoja.
*cada pagina contiene un comienzo de una líneas de texto para que sepas que
la pagina contiene datos de impresión y no es el formato para imprimir
* el mensaje de texto es los datos que una lo llenas para imprimir es para
saber que en una pagina hay datos para imprimir y algunas paginas no tiene
para que no lo imprimes.
*"impresion rapida" si es me refiero a pulsar el icono de la impresora (sin
establecer nada especial) pero antes de eso yo configuro los márgenes estera
y con Quero la impresión.

Saludo
KM**VE

"Héctor Miguel" escribió en el mensaje de
noticias:

hola, KM !

... mando un ejemplo de Excel,Tengo 6 pagina en una hoja de Excel con un
formato de cuadros conEncabezado
las pagina 1 y 2 y 4 y 6 cada pagina contiene un mensaje deTexto
lo que necesito cuando imprimo por impresion rapida
que me imprime las Paginas que tenga dentro de la pagina mensaje de
texto...

(creo que) algunos terminos podrian causar confusion en algun sentido
(p.e. cuando dices)...

- "... en una hoja de excel ..."
-> te refieres (p.e.) a la Hoja1 ?... o al Libro1.xls ?

- "... 6 paginas ..."
-> te refieres a 6 paginas IMPRESAS de la Hoja1 ?
cual seria el rango de impresion de cada "pagina" (salida a la
impresora) ?
-> te refieres a las hojas Hoja1, Hoja2,... Hoja6 del Libro1.xls ?

- que significa: "... cada pagina contiene un mensaje de texto ..." ???
-> "que" es un mensaje de texto ?
-> que dice el mensaje de texto ?
-> no existe este "mensaje de texto" en las paginas (u Hojas ?) 2, 3, 5,
... ???

- asumo que por "impresion rapida" te refieres a pulsar el icono de la
impresora (sin establecer nada especial) ?
esto requeriria usar codigo (p.e.) en el evento '_beforeprint' en el
modulo ThisWorkbook (dependiendo del significado de "pagina")

saludos,
hector.

hola, KM !

estos son los supuestos que me he "fabricado" para poder iniciar un "acercamiento" por alguna solucion...

1) se trata de las hojas Hoja1... a Hoja6 de un solo libro (por indice = 1 a 6)
2) en cada hoja, la celda B3 tiene el texto: SE IMPRIME !!! o esta en blanco o con texto diferente
(obviamente, por codigo se seleccionan las hojas que digan "SE IMPRIME !!!" y las otras se descartan de la impresion)

haz algunas pruebas con la siguiente propuesta y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

copia/pega (o escribe) las siguientes instrucciones en un modulo de codigo estandar:

Option Private Module
Public Actual As Byte
Sub Regresa_A_HojaActiva()
Worksheets(Actual).Select
End Sub

copia/pega (o escribe) las siguientes instrucciones en el modulo de codigo de tu libro (ThisWorkbook)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim n As Byte
Actual = ActiveSheet.Index
For n = 1 To 6
With Worksheets(n)
If .Range("b3") = "SE IMPRIME !!!" Then .Select: Exit For
End With
Next
For n = 1 To 6
With Worksheets(n)
If .Range("b3") = "SE IMPRIME !!!" Then .Select False
End With
Next
Application.OnTime Now, "Regresa_A_HojaActiva"
End Sub