Hola,

Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes:

Dim inicio, final As Integer

inicio = InputBox("Indique Registro Inicial", "Inicio")

final = InputBox("Indique Registro final", "Final")

b = inicio

For i = inicio To final

Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" &

Label1.Caption = Range("a1")

Sheets("Hoja1").PrintOut

b = b + 1

Next i

En este caso el label toma el valor inicial pero no lo actualiza.

Mil gracias por la colaboración al respecto.

Antonio G.

Adjunta un archivo ejemplo.....normas del foro.....para que alguien te pueda ayudar.

Un saludo,

Tese

Hola,

Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes:

Dim inicio, final As Integer

inicio = InputBox("Indique Registro Inicial", "Inicio")

final = InputBox("Indique Registro final", "Final")

b = inicio

For i = inicio To final

Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" &

Label1.Caption = Range("a1")

Sheets("Hoja1").PrintOut

b = b + 1

Next i

En este caso el label toma el valor inicial pero no lo actualiza.

Mil gracias por la colaboración al respecto.

Antonio G.

Bienvenido al foro

Lee primero por aqui Normas - Política - Términos | Ayuda Excel

Nadie te respondera hasta que demuestres que ya leiste las normas

Saludos

Adjunta un archivo ejemplo.....normas del foro.....para que alguien te pueda ayudar.

Un saludo,

Tese

Hola @[uSER=99562]tese1969[/uSER] no mire tu mensaje al responder, te mando un fuerte abrazo

Saludos