Este fórum está sendo desativado

[Wlima]

Boa tarde a todos,

Gostaria de saber se é possivel criar uma macro que imprimisse uma quantidade de folhas igual a quantidade digitada em uma celula especifica.

Ou seja na celula eu colocaria uma quantidade de copias que eu preciso, apertaria um botão com uma macro de imprimir, e seria impresso exatamente aquela quantidade de copias.

Agradeço muito quem conseguir me ajudar.

[claudiodamasceno]

Supondo que a célula com a quantidade de cópias seria a A1, o código abaixo deverá funcionar.

Sub Imprimir()
ActiveWindow.SelectedSheets.PrintOut Copies:=ActiveSheet.Range("A1")
End Sub

[almirjorge]

Segue a planilha anexada em seu post com o ajuste pedido.

Espero que te sirva.

Abraço