Este fórum está sendo desativado

[Fabricioranier]

Bom dia a todos,
criei uma planilha para utilizar no trabalho com 2 abas, sendo que na segunda colo as informações totais recebidas, e na primeira extraio somente as informações que preciso imprimir para compartilhar com a equipe. Como posso criar uma macro para que eu consiga fazer a impressão da primeira planilha somente com as células e linhas preenchidas ?

[gfranco]

Boa tarde.
Veja se te ajuda:

Código: Selecionar todos

Sub main()
    
    Dim lastrow As Long
    Dim lastcol As Long
    Dim endereco As String
    
    'Entenda, neste código, planilha1 como o codename da planilha que deseja imprimir
       
    
    'Altere a coluna para definir a última linha _
    e a linha para definir a última coluna conforme sua realidade:
    
    lastrow = Planilha1.Cells(Planilha1.Rows.Count, "A").End(3).Row + 1 'Mapeia a última linha preechida com base na coluna "A"
    lastcol = Planilha1.Cells(1, Planilha1.Columns.Count).End(1).Column 'Mapeia a última coluna preenchida com base na linha 1
    
    endereco = Range("a1", Cells(lastrow, lastcol)).Address 'Retorna o endereço da faixa preenchida
    
    
    
        With Planilha1.PageSetup
        
        .PrintArea = endereco 'define a área de impressão
        .FitToPagesWide = 1 'define a largura para uma página
        .Orientation = xlPortrait ' define a orientação para "Retrato"
        
        End With
    
    Planilha1.PrintOut 'manda imprimir


End Sub