Generar folio

hola, CC !

1) [hasta donde se]... 'manejar' el evento '_beforeprint' pudiera tener algunas 'fugas' [como]...
-> si hay varias hojas seleccionadas y la hoja 'en cuestion' NO es la hoja 'activa' [entre otros] :(
2) no alcanzo a 'ver' tue relacion existe entre la celda 'F2', la variable vContenidoAnterior Y la celda 'G5' -?-
3) [probablemente] seria mas 'util' incrustar un objeto EN 'esa' hoja y asignarle una macro +/- como la de en seguida ;)
4) suponiendo que la autonumeracion [en cada impresion] la vas a poner en la celda 'A1'...
y que el 'avance' [en el folio] se hara posterior a cada impresion [como dejarlo preparado para la siguiente]...
copia las siguientes lineas -> en un modulo de codigo 'normal' Y se lo asignas a algun objeto incrustado en la hoja...

Sub Imprime_Numera()
With ActiveSheet
.[g51] = "ORIGINAL": .PrintOut
.[g51] = "COPIA 1": .PrintOut
.[g51] = "COPIA 2": .PrintOut
.[g51] = .[f2]
.[a1] = .[a1] + 1
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
___ consulta original ___

... no tengo IDEA de codigos, asi que me voy a aprovechar...
... Estuve un tiempo ocupando la "autonumeracion" de Fernando
... a veces olvido darle la orden y no cambio de numero (la edad)
...por eso que si fuera automatico cada vez que imprimo sería ideal.
... el codigo que tengo... como agregarle el que tu me pasaste? Trate pero me arroja error.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
If .Name <> "HOJA 1" Then Exit Sub 'HOJA 1 es el nombre de la hoja
Dim vContenidoAnterior As Variant 'Para almacenar el contenido previo de la celda
vContenidoAnterior = .[F2] 'F2 es la celda que se modificará
Application.EnableEvents = False
.[G51] = "ORIGINAL"
.PrintOut
.[G51] = "COPIA 1"
.PrintOut
.[G51] = "COPIA 2"
.PrintOut
.[G51] = vContenidoAnterior
Application.EnableEvents = True
End With
Cancel = True

Perfecto, eso era. Muchas gracias.

"Héctor Miguel" escribió en el mensaje
news:

hola, CC !

1) [hasta donde se]... 'manejar' el evento '_beforeprint' pudiera tener

algunas 'fugas' [como]...

-> si hay varias hojas seleccionadas y la hoja 'en cuestion' NO es la

hoja 'activa' [entre otros] :(

2) no alcanzo a 'ver' tue relacion existe entre la celda 'F2', la variable

vContenidoAnterior Y la celda 'G5' -?-

3) [probablemente] seria mas 'util' incrustar un objeto EN 'esa' hoja y

asignarle una macro +/- como la de en seguida ;)

4) suponiendo que la autonumeracion [en cada impresion] la vas a poner en

la celda 'A1'...

y que el 'avance' [en el folio] se hara posterior a cada impresion

[como dejarlo preparado para la siguiente]...

copia las siguientes lineas -> en un modulo de codigo 'normal' Y se lo

asignas a algun objeto incrustado en la hoja...

Sub Imprime_Numera()
With ActiveSheet
.[g51] = "ORIGINAL": .PrintOut
.[g51] = "COPIA 1": .PrintOut
.[g51] = "COPIA 2": .PrintOut
.[g51] = .[f2]
.[a1] = .[a1] + 1
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
___ consulta original ___
> ... no tengo IDEA de codigos, asi que me voy a aprovechar...
> ... Estuve un tiempo ocupando la "autonumeracion" de Fernando
> ... a veces olvido darle la orden y no cambio de numero (la edad)
> ...por eso que si fuera automatico cada vez que imprimo sería ideal.
> ... el codigo que tengo... como agregarle el que tu me pasaste? Trate

pero me arroja error.

> Private Sub Workbook_BeforePrint(Cancel As Boolean)
> With ActiveSheet
> If .Name <> "HOJA 1" Then Exit Sub 'HOJA 1 es el nombre de la

hoja

> Dim vContenidoAnterior As Variant 'Para almacenar el contenido

previo de la celda

> vContenidoAnterior = .[F2] 'F2 es la celda que se modificará
> Application.EnableEvents = False
> .[G51] = "ORIGINAL"
> .PrintOut
> .[G51] = "COPIA 1"
> .PrintOut
> .[G51] = "COPIA 2"
> .PrintOut
> .[G51] = vContenidoAnterior
> Application.EnableEvents = True
> End With
> Cancel = True