Comprar Coleção de 15.000 Macros, Funções e Fórmulas                Dicas 

Como realizar uma Impressão seletiva?


Questão 48:
Meu trabalho compreende várias Planilhas. Mas nem todas serão necessárias na fase de impressão. Como selecionar apenas e tão somente as que necessito imprimir ? Acrescento que todas as Planilhas a serem impressas tem nome com prefixo especial (Imp....)

Solução 48:

Sub ImprimeSeleção( )
Dim ws as Worksheet
' Selecionando as Sheets com o prefixo "Imp" no Nome
For each ws in Activeworkbook.Worksheets
if left(ws.nome, 3) = "Imp" then
ws.Select False
end if
Next
ActiveWindow.SelectedSheets.PrintOut
End Sub