imprimir tabla fila a fila

Hola José,

Como lo haría de primera instancia sería de la siguiente
manera:

Primero, En Page Setup-Sheet-Row to repeat at top:
Ahí eliges las filas que quieras que se repitan en todas
las hojas. Por tu ejemplo sería $3:$4

Después tendrías que poner un Page Break en cada uno de
los registros. Insert-Page Break.
Aunque sería mucho más rápido a través de código, sin
embargo, no sé la sentencia de page break =(. A lo mejor
alguien te puede ayudar con eso!

Saludos

Javier

Hola a todos/as:

Tengo una tabla, por ejemplo, b3:f10, en la que las dos

primeras filas,

b3:f4, son utilizadas como encabezamientos. A

continuación todos los datos.

A ver si me explico, :) , ...cómo puedo hacer que se

imprima una hoja por

cada registro, haciendo que aparezcan, en cada hoja, las

dos filas de

encabezamientos y la primera fila de datos, a

continuación igual con la fila

siguiente, y así hasta imprimir tantas hojas como

registros tenga.

Gracias de antemano,

Jose Soler
Salu2 desde Madrid


.

Gracias Javier:

Lo de repetir el encabezamiento me lo acaba de enseñar mi mujer y va bien,
...igual que has dicho tu.

Lo del salto de página también me lo ha sugerido. Si el ejemplo que puse
aqui fuese la tabla real seria práctico pero la tabla de verdad tiene 300
registros. Es de A5:AF7, para los encabezamientos, y de A8:A307 para los
registros.

Como tú dices, alguna sentencia de código sencilla me vendria muy bien. A
ver si alguien puede hecharme este cable.

Un saludo,

Jose


"OSTOS javier" escribió en el mensaje
news:4e4d01c3ffe1$1e74a030$
Hola José,

Como lo haría de primera instancia sería de la siguiente
manera:

Primero, En Page Setup-Sheet-Row to repeat at top:
Ahí eliges las filas que quieras que se repitan en todas
las hojas. Por tu ejemplo sería $3:$4

Después tendrías que poner un Page Break en cada uno de
los registros. Insert-Page Break.
Aunque sería mucho más rápido a través de código, sin
embargo, no sé la sentencia de page break =(. A lo mejor
alguien te puede ayudar con eso!

Saludos

Javier

Hola a todos/as:

Tengo una tabla, por ejemplo, b3:f10, en la que las dos

primeras filas,

b3:f4, son utilizadas como encabezamientos. A

continuación todos los datos.

A ver si me explico, :) , ...cómo puedo hacer que se

imprima una hoja por

cada registro, haciendo que aparezcan, en cada hoja, las

dos filas de

encabezamientos y la primera fila de datos, a

continuación igual con la fila

siguiente, y así hasta imprimir tantas hojas como

registros tenga.

Gracias de antemano,

Jose Soler
Salu2 desde Madrid


.

Jose:

Copia esto en el editor de VBA y lo ejecutas.

Sub SaltoporRegistro()
'
Dim i
'Si quieres poner en el codigo el fijar el encabezado
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$7"
.PrintTitleColumns = ""
End With

' a partir de aqui es el codigo para insertar el salto
' el salto de pagina

For i = 9 To 307
Rows(i & ":" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=ActiveCell
Next i
End Sub

(Ojo, la linea del "ActiveWindow." termina
en "ActiveCell", si por efectos del envio esta
se separa, simplemente unelas y dejalas todo en una sola)

Espero esto te ayude.

Saludos
Servando Villalon

Gracias Javier:

Lo de repetir el encabezamiento me lo acaba de enseñar

mi mujer y va bien,

igual que has dicho tu.

Lo del salto de página también me lo ha sugerido. Si el

ejemplo que puse

aqui fuese la tabla real seria práctico pero la tabla de

verdad tiene 300

registros. Es de A5:AF7, para los encabezamientos, y de

A8:A307 para los

registros.

Como tú dices, alguna sentencia de código sencilla me

vendria muy bien. A

ver si alguien puede hecharme este cable.

Un saludo,

Jose


"OSTOS javier"

escribió en el mensaje

news:4e4d01c3ffe1$1e74a030$
Hola José,

Como lo haría de primera instancia sería de la siguiente
manera:

Primero, En Page Setup-Sheet-Row to repeat at top:
Ahí eliges las filas que quieras que se repitan en todas
las hojas. Por tu ejemplo sería $3:$4

Después tendrías que poner un Page Break en cada uno de
los registros. Insert-Page Break.
Aunque sería mucho más rápido a través de código, sin
embargo, no sé la sentencia de page break =(. A lo mejor
alguien te puede ayudar con eso!

Saludos

Javier

Hola a todos/as:

Tengo una tabla, por ejemplo, b3:f10, en la que las dos

primeras filas,

b3:f4, son utilizadas como encabezamientos. A

continuación todos los datos.

A ver si me explico, :) , ...cómo puedo hacer que se

imprima una hoja por

cada registro, haciendo que aparezcan, en cada hoja, las

dos filas de

encabezamientos y la primera fila de datos, a

continuación igual con la fila

siguiente, y así hasta imprimir tantas hojas como

registros tenga.

Gracias de antemano,

Jose Soler
Salu2 desde Madrid


.

.

Muchas gracias Servando!!.
Aun no he tenido tiempo para probarlo. En cuanto lo haga comento.

Un cordial saludo,

Jose

"Servando" escribió en el
mensaje news:4f0d01c3fff7$f86799d0$
Jose:

Copia esto en el editor de VBA y lo ejecutas.

Sub SaltoporRegistro()
'
Dim i
'Si quieres poner en el codigo el fijar el encabezado
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$7"
.PrintTitleColumns = ""
End With

' a partir de aqui es el codigo para insertar el salto
' el salto de pagina

For i = 9 To 307
Rows(i & ":" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=ActiveCell
Next i
End Sub

(Ojo, la linea del "ActiveWindow." termina
en "ActiveCell", si por efectos del envio esta
se separa, simplemente unelas y dejalas todo en una sola)

Espero esto te ayude.

Saludos
Servando Villalon

Gracias Javier:

Lo de repetir el encabezamiento me lo acaba de enseñar

mi mujer y va bien,

igual que has dicho tu.

Lo del salto de página también me lo ha sugerido. Si el

ejemplo que puse

aqui fuese la tabla real seria práctico pero la tabla de

verdad tiene 300

registros. Es de A5:AF7, para los encabezamientos, y de

A8:A307 para los

registros.

Como tú dices, alguna sentencia de código sencilla me

vendria muy bien. A

ver si alguien puede hecharme este cable.

Un saludo,

Jose


"OSTOS javier"

escribió en el mensaje

news:4e4d01c3ffe1$1e74a030$
Hola José,

Como lo haría de primera instancia sería de la siguiente
manera:

Primero, En Page Setup-Sheet-Row to repeat at top:
Ahí eliges las filas que quieras que se repitan en todas
las hojas. Por tu ejemplo sería $3:$4

Después tendrías que poner un Page Break en cada uno de
los registros. Insert-Page Break.
Aunque sería mucho más rápido a través de código, sin
embargo, no sé la sentencia de page break =(. A lo mejor
alguien te puede ayudar con eso!

Saludos

Javier

Hola a todos/as:

Tengo una tabla, por ejemplo, b3:f10, en la que las dos

primeras filas,

b3:f4, son utilizadas como encabezamientos. A

continuación todos los datos.

A ver si me explico, :) , ...cómo puedo hacer que se

imprima una hoja por

cada registro, haciendo que aparezcan, en cada hoja, las

dos filas de

encabezamientos y la primera fila de datos, a

continuación igual con la fila

siguiente, y así hasta imprimir tantas hojas como

registros tenga.

Gracias de antemano,

Jose Soler
Salu2 desde Madrid


.

.

Hola Servando y demás del foro:

Si pongo esto que pego abajo, veo como se seleccionan primero una luego la
otra y la otra (de las tres filas que he puesto para probar el código) pero
no me imprime nada!!!!.

Sub SaltoporRegistro()
'
Dim i

With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$7"
.PrintTitleColumns = ""
End With

' a partir de aqui es el codigo para insertar el salto
' el salto de pagina

For i = 9 To 11
Rows(i & ":" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
Next i
End Sub




"Servando" escribió en el
mensaje news:4f0d01c3fff7$f86799d0$
Jose:

Copia esto en el editor de VBA y lo ejecutas.

Sub SaltoporRegistro()
'
Dim i
'Si quieres poner en el codigo el fijar el encabezado
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$7"
.PrintTitleColumns = ""
End With

' a partir de aqui es el codigo para insertar el salto
' el salto de pagina

For i = 9 To 307
Rows(i & ":" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add
Before:=ActiveCell
Next i
End Sub

(Ojo, la linea del "ActiveWindow." termina
en "ActiveCell", si por efectos del envio esta
se separa, simplemente unelas y dejalas todo en una sola)

Espero esto te ayude.

Saludos
Servando Villalon

Gracias Javier:

Lo de repetir el encabezamiento me lo acaba de enseñar

mi mujer y va bien,

igual que has dicho tu.

Lo del salto de página también me lo ha sugerido. Si el

ejemplo que puse

aqui fuese la tabla real seria práctico pero la tabla de

verdad tiene 300

registros. Es de A5:AF7, para los encabezamientos, y de

A8:A307 para los

registros.

Como tú dices, alguna sentencia de código sencilla me

vendria muy bien. A

ver si alguien puede hecharme este cable.

Un saludo,

Jose


"OSTOS javier"

escribió en el mensaje

news:4e4d01c3ffe1$1e74a030$
Hola José,

Como lo haría de primera instancia sería de la siguiente
manera:

Primero, En Page Setup-Sheet-Row to repeat at top:
Ahí eliges las filas que quieras que se repitan en todas
las hojas. Por tu ejemplo sería $3:$4

Después tendrías que poner un Page Break en cada uno de
los registros. Insert-Page Break.
Aunque sería mucho más rápido a través de código, sin
embargo, no sé la sentencia de page break =(. A lo mejor
alguien te puede ayudar con eso!

Saludos

Javier

Hola a todos/as:

Tengo una tabla, por ejemplo, b3:f10, en la que las dos

primeras filas,

b3:f4, son utilizadas como encabezamientos. A

continuación todos los datos.

A ver si me explico, :) , ...cómo puedo hacer que se

imprima una hoja por

cada registro, haciendo que aparezcan, en cada hoja, las

dos filas de

encabezamientos y la primera fila de datos, a

continuación igual con la fila

siguiente, y así hasta imprimir tantas hojas como

registros tenga.

Gracias de antemano,

Jose Soler
Salu2 desde Madrid


.

.