Bom dia!!

Em nossa base há exemplos

Essa parte:

 Filename:="C:UsersAleVBADownloads"

é o local onde o arquivo será salvo
Essa parte:

 ActiveSheet.Range("A1").Value

nome do arquivo

Sub AleVBA_20430()
    With Sheets("Plan1").Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row)
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:UsersAleVBADownloads" & ActiveSheet.Range("A1").Value, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False '
    End With
End Sub

Att

Amigo, quero que a mensagem box seja permanecida, teria como deixar ela ?

Bom dia!!

Não testado.

Sub AleVBA_20430()
Dim Nome As String
Nome = ActiveSheet.Range("A1").Value
    If Nome <> vbNullString Then
        With Sheets("Plan1").Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row)
            .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:UsersAleVBADownloads" & Nome, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False '
        End With
        MsgBox "Relatório de numero " & Nome & "," & " foi salvo com sucesso!", vbOKOnly, "Salvo"
    Else
        MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
    End If
End Sub

Att

Obrigado amigo, ajudou muito.

Mais uma vez, aproveitando o tópico esse código aqui é de visualização de impressão, teria como deixar para visualizar apenas as colunas (A1 ao I), pois está pegando a planilha inteira.

Sub Visualizar_impressão()
Sheets("Plan1").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Bom dia!!

Favor clicar na mãozinha!!!!!!!!!!!!!

Sub Visualizar_impressão()
With Sheets("Plan1").Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row)
    ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub

Att