En el excel que adjunto, en la pestaña listado celda I9, pone un valor (que es variable), lo que quiero es que al darle a imprimir en el ejecutable de la pestaña pegatina, imprima tantas hojas, como el número que pone en la I9.
Para este caso pone la I9 29, por lo que en la pestaña pegatinas al ejecutar la macro imprima 29 hojas.
Muchas gracias de antemano.
Saludos.

PEGATINAS CALIBRACIÓN_prueba.xlsm

Hola @rafernan

Una posible solución, espero sea de utilidad.

-->>

Sub Print_1()

Cc = Sheets("LISTADO").Cells(9, 9).Value
   Sheets("PEGATINA").PrintOut From:=1, to:=Cc ', Copies:=Cc, Collate:=True, IgnorePrintAreas:=False

''For i = 1 To Cc
''     Sheets("PEGATINA").PrintOut
''Next i

End Sub

<<--

Nos comentas

Algo hago mal que cuando lo traslado al excel, y ejecuto la macro me da error y se señala en amarillo el 9 de Cell.

¿que puede ser?

Muchas gracias.

Hace 10 minutos , rafernan dijo:

Algo hago mal que cuando lo traslado al excel, y ejecuto la macro me da error y se señala en amarillo el 9 de Cell.

¿que puede ser?

Muchas gracias.

Saludos. @rafernan

 

 

PEGATINAS CALIBRACIÓN_prueba.xlsm