none
Macro Seleção de Impressão RRS feed

  • Pergunta

  • 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

    quinta-feira, 8 de outubro de 2020 10:36

Todas as Respostas