Guru do Excel e Power BI

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