IMPRIMIR APENAS CONTEÊDO FILTRADO
Olá pessoal meu código abaixo,funciona corretamente mas infelizmente ele imprime todo conteúdo da planilha. Ignorando até mesmo o conteúdo filtrado.
Ele pega os dados de funcionários de uma planilha (Dados pessoais) e preenche um documento que será impresso alternando os registros até o fim.
No momento tenho 34 registros ,mas nem sempre preciso imprimir todos (Ou desperdiçar papel ,lol). Portanto gostaria de aprender como imprimir com o código abaixo ,mas, incluindo uma opção caso os registros forem reduzidos com um filtro.
Ele pega os dados de funcionários de uma planilha (Dados pessoais) e preenche um documento que será impresso alternando os registros até o fim.
No momento tenho 34 registros ,mas nem sempre preciso imprimir todos (Ou desperdiçar papel ,lol). Portanto gostaria de aprender como imprimir com o código abaixo ,mas, incluindo uma opção caso os registros forem reduzidos com um filtro.
Sub Macro1()
Dim i As Long
Dim UltimaLinha As Long
UltimaLinha = Sheets([Ô]Dados Pessoais[Ô]).Cells(Cells.Rows.Count, 1).End(xlUp).Row
[ô] Macro1 Macro
[ô] Atalho do teclado: Ctrl+i
For i = 5 To UltimaLinha
Sheets([Ô]Dados Pessoais[Ô]).Range([Ô]A[Ô] & i).Copy Destination:=Sheets([Ô]Folha de Pagamento[Ô]).Range([Ô]J3[Ô])
Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
Application.CutCopyMode = False
End Sub
Faça seu login para responder