imprimir tabla fila a fila

Jose:

La macro no manda hacia la impresora... solo crea los
saltos de página que necesitas.

Despues de ejecutar este código, visualiza el resultado a
través del "Vista Preliminar", para que veas si es lo que
necesitabas y luego ya puedes mandar la impresion de
manera manual.

Al decir que puedes mandar la impresion de manera manual,
desde luego no quiere decir que la vas a mandar de una en
una. Simplemente manda imprimir "Todo" y listo

Saludos
Servando Villalon

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


.

.

.

Ahora entiendo. Claro por eso salen esas líneas punteadas.

Ok, muchas gracias Servando!!! Genial

Salu3,

Jose


"Servando" escribió en el
mensaje news:5b4b01c400ab$adfa34c0$
Jose:

La macro no manda hacia la impresora... solo crea los
saltos de página que necesitas.

Despues de ejecutar este código, visualiza el resultado a
través del "Vista Preliminar", para que veas si es lo que
necesitabas y luego ya puedes mandar la impresion de
manera manual.

Al decir que puedes mandar la impresion de manera manual,
desde luego no quiere decir que la vas a mandar de una en
una. Simplemente manda imprimir "Todo" y listo

Saludos
Servando Villalon

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


.

.

.

¿Cómo seria el código para quitar todos los saltos de página?


"Jose Soler" escribió en el mensaje
news:u$

Ahora entiendo. Claro por eso salen esas líneas punteadas.

Ok, muchas gracias Servando!!! Genial

Salu3,

Jose


"Servando" escribió en el
mensaje news:5b4b01c400ab$adfa34c0$
Jose:

La macro no manda hacia la impresora... solo crea los
saltos de página que necesitas.

Despues de ejecutar este código, visualiza el resultado a
través del "Vista Preliminar", para que veas si es lo que
necesitabas y luego ya puedes mandar la impresion de
manera manual.

Al decir que puedes mandar la impresion de manera manual,
desde luego no quiere decir que la vas a mandar de una en
una. Simplemente manda imprimir "Todo" y listo

Saludos
Servando Villalon

>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
>>>
>>>
>>>.
>>>
>>
>>
>>.
>>
>
>
>.
>