Macro Seleção de Impressão

Question

Olá

Gostaria de adaptar essa macro para identificar a impressão somente dos ranges selecionados no mouse manualmente

Sub Imprimir_SelecaoCopias()
'Macro com quantidade de cópias com erro ajustado ao clicar em cancelar

ncop = InputBox("Quantas cópias deseja imprimir?")
If ncop = "" Or ncop = "0" Then
'MsgBox ("Impressão Cancelada com sucesso!")
Exit Sub
End If

Application.ScreenUpdating = True
Range("A1").Select
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=ncop


End Sub

Answer 1

https://www.google.com/search?q=vba+imprimir+sele%C3%A7ao&rlz=1C1CHBD_pt-PTBR867BR867&oq=vba+imprimir+sele%C3%A7ao&aqs=chrome..69i57.10224j0j1&sourceid=chrome&ie=UTF-8

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]