Boa noite .
Pessoal ,alguém entendeu mal o jeito que formule a pergunta?

Creio que é um pouco complicado mesmo .kkkkk
Vlew !

Boa noite, Marcio

Não sei que é isso que está precisando segue os códigos abaixo da macro, lembrando que o código abaixo está selecionado somente da coluna A até E, basta alterar a letra caso precise de mais coluna.

'Seleciona as colunas e linhas preenchidas

Sub Selecionar()
    Dim lRowLast As Long
     lRowLast = WorksheetFunction.Max( _
      RowLast(Columns("A")), _
      RowLast(Columns("E")))
   
    Range("A1:E" & lRowLast).Select
End Sub

'Retorna o valor da última linha

Function RowLast(rng As Range) As Long
    With rng
        On Error Resume Next
        RowLast = .Find(What:="*" _
          , After:=.Cells(1) _
          , SearchDirection:=xlPrevious _
          , SearchOrder:=xlByColumns _
          , LookIn:=xlFormulas).Row
        If RowLast = 0 Then RowLast = rng.Cells(1).Row
    End With
End Function

'Visualiza a área de impressão

Sub visualizar_Impressao()
    With ActiveSheet
        .PageSetup.PrintArea = .UsedRange.Address
        .PrintPreview
    End With
End Sub

'Defini a área de impressão

Sub DefineAreaImprimir()
    Dim UltimaLinha
    Dim P_Range
    
    UltimaLinha = Cells(Rows.Count, 1).End(xlUp).Row
    P_Range = "A1:E" & UltimaLinha
    ActiveSheet.PageSetup.PrintArea = P_Range
    
End Sub

Bom dia
Avg Santos , as macros sao boas .
Porem essa de visualizar queria um pouco mais diferente , sendo:
Essa que vc postou ela visualizar tudo que esta na planilha .Gostaria que fosse visualizado somente o que eu selecionar .Ex: se eu selecionar apenas cinco linhas e a planilha tiver 200 linhas some nte as cinco linhas deverao aparecer na visualização .
Segue Exemplos :

Obrigado !

Boa noite !
Senhores ,essa questão é impossível ?kkkkk.
No aguardo .
Obrigado !

Bom dia
Avg Santos , as macros sao boas .
Porem essa de visualizar queria um pouco mais diferente , sendo:
Essa que vc postou ela visualizar tudo que esta na planilha .Gostaria que fosse visualizado somente o que eu selecionar .Ex: se eu selecionar apenas cinco linhas e a planilha tiver 200 linhas some nte as cinco linhas deverao aparecer na visualização .

Se for só na de visualizar, troque por esta :
Selecione as celulas e rode a macro :

Sub visualizar_Impressao()

    With ActiveSheet
        .PageSetup.PrintArea = Selection.Address
        .PrintPreview
    End With

End Sub

Para imprimir direto, troque .PrintPreview por .PrintOut

[]s

Boa tarde. Obrigado era isso q eu precisava ok