Excel Criar pdf com Macro

[João Paulo Lucas]

Boa tarde

 

Sou novo por aqui, e tenho o seguinte problema.

Tenho uma macro que funciona bem, na criação de PDF, no entanto quando o PDF é gerado, são criadas muitas folhas em branco, para além do pretendido.

Peço ajuda

Segue a o codigo

Dim Filepdf, rData, rNome, ePath, Filename As String
    If Application.Version < "12.0" Then
        MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office"
        Exit Sub
    End If
    
    With Worksheets("bancoti")
               
        rData = .Range("b4")    ' na celula b4 insira uma data
        rData = Format(rData, "dd-mm-yyyy") ' altere a formatacao que desejar
        rNome = .Range("g3")    ' na celula k3 inira um nome ou numero que deseja
        ePath = .Range("g2") ' Na "k2" diretorio que será salvo o PDF
        .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem)
             
        Filename = Trim(rData & "_Guia Nº " & rNome & ".Pdf")
        Filepdf = ePath & Trim("\" & Filename)
        Application.DisplayAlerts = False
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _
                                        Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=True
   
   
   
    End With
      end sub

Obrigado

[5enna]

Você verificou a area de impressão? se area de impressão estiver cobrindo varias paginas, ele ira salvar varias mesmo que estejam em branco.

[João Paulo Lucas]

Ola 5enna, mas como verifico isso ?

[5enna]

1 minuto atrás, João Paulo Lucas disse:

Ola 5enna, mas como verifico isso ?

https://support.office.com/pt-br/article/definir-ou-limpar-a-área-de-impressão-em-uma-planilha-27048af8-a321-416d-ba1b-e99ae2182a7e

 

Vai aparecer pra você uma marcação, arrastando as linhas azuis você ajusta  para o tamanho que pretende. Depois no campo de imprimir, vai abrir uma pre-visualização, verifique novamente se o tamanho que você ajustou está no tamanho certo de a4

[João Paulo Lucas]

5enna

Muito Obrigado pela sua ajuda, está perfeito

 

Abraço

[5enna]

1 hora atrás, João Paulo Lucas disse:

5enna

Muito Obrigado pela sua ajuda, está perfeito

 

Abraço

magina! Não esqueça de marcar como melhor resposta.