Fóruns Microsoft Excel - 2... 2024 - VBA & Macros Imprimindo área sel... Notifications Clear all Imprimindo área selecioanda 2024 - VBA & Macros Post Recente por evilmaax 8 anos atrás 3 Posts 2 Usuários 0 Reactions 987 Visualizações RSS evilmaax (@evilmaax) Posts: 82 Trusted Member Topic starter Olá galera Estou tendo imprimir aquilo que está selecionado através do código Sub imprimir() ActiveCell.CurrentRegion.PrintOut End Sub Mas não está saindo como o esperado. Alguém pode me dar uma luz? Obrigaod Postado : 13/03/2017 7:07 am hronconi (@hronconi) Posts: 314 Reputable Member Tente Range("A4:A16").Select Selection.PrintOut Copies:=1, Collate:=True Se não funcionar então tente: ActiveSheet.PageSetup.PrintArea = "$A$6:$A$16" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Henrique http://henriqueronconi.wix.com/consultoria Espero ter ajudado! Postado : 13/03/2017 7:20 am evilmaax (@evilmaax) Posts: 82 Trusted Member Topic starter Consegui com o seguinte código: Sub print_select() ActiveWindow.RangeSelection.PrintOut End Sub Fica a dica para quem estiver com o mesmo problema Postado : 13/03/2017 7:27 am