Este fórum está sendo desativado

[NessahanAlita]

Ola eu uso uma macro simples para imprimir etiquetas porém como a quantidade varia muito, preciso de uma macro para imprimir cópias conforme número em uma célula, a macro que uso so imprimi uma copia por vez e não me atende mais gostaria de modificar essa abaixo para determina o numero de copias em uma célula da planilha. Exemplo: imprimir a quantidade de copias descrita na célula B4. tem como modificar a macro abaixo para executar essa função?

Sub ETIQUETA()

' Atalho do teclado: Ctrl+Shift+P

If ActiveSheet.Name = "ETIQUETA " Then
ActiveSheet.PrintOut ActivePrinter:="ZDesigner"

End If
End Sub

[osvaldomp]

Experimente:

Código: Selecionar todos

ActiveSheet.PrintOut copies:=[B4], ActivePrinter:="ZDesigner"

[NessahanAlita]

Show Osvaldo, funcionou perfeitamente valeu.