Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Impressão de conteúdo filtrado

Ir para baixo 
2 participantes
AutorMensagem
Victorzoomg1




Mensagens : 2
Data de inscrição : 23/09/2015

Impressão de conteúdo filtrado Empty
MensagemAssunto: Impressão de conteúdo filtrado   Impressão de conteúdo filtrado EmptyQua Set 23, 2015 11:06 pm

Olá. Trabalho com uma planilha onde todos os dias imprimo varias listagens. Ocorre que todo dia preciso filtrar o dia, filtrar a situação (interno/externo) e depois filtrar as áreas e imprimir conforme cada filtro.
O que preciso saber é se tem como, usando VBA, Imprimir automaticamente todas as áreas, referente ao ultimo filtro de uma vez só, porém em folhas separadas, ja que para isso, tenho que filtrar e imprimir uma a uma.

Obrigado.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Impressão de conteúdo filtrado Empty
MensagemAssunto: Re: Impressão de conteúdo filtrado   Impressão de conteúdo filtrado EmptyQua Set 23, 2015 11:45 pm

Boa tarde!!

Consegue adaptar...?
Código:
Option Explicit
 
Sub AleVBA_1076()
   
    Dim ws As Worksheet
    Dim lastrow As Long
   
    Application.ScreenUpdating = False
   
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .Name Like "*GuiaPrincipal" Then
                lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
                .AutoFilterMode = False
                .Range("A2:A" & lastrow).AutoFilter field:=1, Criteria1:=">0" 'Filtra na col A maior que Zero
                .PageSetup.PrintArea = ""
                .PageSetup.PrintArea = .Range("A2:J" & lastrow).Address 'Até a coluna J
            End If
        End With
    Next ws
   
    Application.ScreenUpdating = True
   
End Sub

Att
Ir para o topo Ir para baixo
Victorzoomg1




Mensagens : 2
Data de inscrição : 23/09/2015

Impressão de conteúdo filtrado Empty
MensagemAssunto: Re: Impressão de conteúdo filtrado   Impressão de conteúdo filtrado EmptyQui Set 24, 2015 7:56 pm

alexandrevba escreveu:
Boa tarde!!

Consegue adaptar...?
Código:
Option Explicit
 
Sub AleVBA_1076()
    
    Dim ws As Worksheet
    Dim lastrow As Long
    
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        With ws
            If .Name Like "*GuiaPrincipal" Then
                lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
                .AutoFilterMode = False
                .Range("A2:A" & lastrow).AutoFilter field:=1, Criteria1:=">0" 'Filtra na col A maior que Zero
                .PageSetup.PrintArea = ""
                .PageSetup.PrintArea = .Range("A2:J" & lastrow).Address 'Até a coluna J
            End If
        End With
    Next ws
    
    Application.ScreenUpdating = True
    
End Sub

Att


Cara. Não manjo muito de VBA. Mas vou ver o q consigo fazer com o q vc me passou. de qqr forma vlw.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Impressão de conteúdo filtrado Empty
MensagemAssunto: Re: Impressão de conteúdo filtrado   Impressão de conteúdo filtrado EmptyQui Set 24, 2015 11:42 pm

Boa tarde!!!

Se não consegui, faça um cadastro em:
http://gurudoexcel.com/forum/index.php?sid=deffe57b789ed3fa67a2122beb549fc4

Depois poste seu arquivo modelo repleto de detalhe, com o antes e depois.

Att
Ir para o topo Ir para baixo
Conteúdo patrocinado





Impressão de conteúdo filtrado Empty
MensagemAssunto: Re: Impressão de conteúdo filtrado   Impressão de conteúdo filtrado Empty

Ir para o topo Ir para baixo
 
Impressão de conteúdo filtrado
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Impresão de Form
» Impressão em serie
» Envio de e-mail conteúdo da Celula
» Preencher Textbox com conteudo de TXT definido por um Combobox
» impressão de Formulario e planilha na mesma folha

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: