Duda con codigo de Impresion

[dorgelis]

Saludos, tengo un confusión con una macro que necesito que me imprima de acuerdo a un rango seleccionado y esta me imprime solo una hoja. 

El resultado que busco es que en la Hoja "Recibo de sueldo", tengo una formula de Buscarv, que esta asociada a la Columna AR3, lo que deseo es imprimir de una vez una serie de Recibos colocandolos en la Columna AR, que al imprimir AR3, baje de celda AR4 y así sucesivamente hasta el ultimo dato que le coloque.

Cuando le doy para la impresión solo me imprime unicamente lo que esta en AR3 varias vecces.

 

Tengo este código pero no encuentro mi error

Sub imprimir()
Dim C As Range
If [ar3] = "" Then Exit Sub
For Each C In Range([ar3], [ar100].End(xlUp))
  [at3] = C.Value
  ActiveSheet.PrintOut Copies:=1
Next C
End Sub

04 Nomina Abril.xlsm

[JasallBcn]

buenas, prueba.

saludos

 

04 Nomina Abril.xlsm

[dorgelis]

hace 2 horas, JasallBcn dijo:

buenas, prueba.

saludos

 

04 Nomina Abril.xlsm 968.48 kB · 0 descargas

Hola JasallBcn, esta genial, sin embargo en el código hay un rango AT3: AT6 enmarcado, sería viable que la impresión se realice no hasta AT6, sino que busque dentro de la columna el ultimo dato e imprima hasta allí, es decir, la cantidad de impresiones puede variar, pueden ser 6, 10 o 30 recibos, que al colocarlo automáticamente imprima hasta el ultimo dato de la columna.

[JasallBcn]

cambia la linea por

Set C = Range("AT3:AT&" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

[dorgelis]

hace 58 minutos , JasallBcn dijo:

cambia la linea por

Set C = Range("AT3:AT&" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

Me generó este error

[JasallBcn]

disculpa , esta mal escrito

Set C = Range("AT3:AT" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

[dorgelis]

hace 8 horas, JasallBcn dijo:

disculpa , esta mal escrito

Set C = Range("AT3:AT" & Range("AT" & Rows.Count).End(xlUp).Row)

saludos

Esta barbaro, mil gracias me sirvió, con esto doy por cerrado el tema