VBA não exporta para PDF

Occasional Visitor

Utilizo uma rotina para gerar várias tabelas e salvar em PDF de forma individual.

Após uma das últimas atualizações do Windows/Office, o comando de exportação começou a dar erro e não consigo mais salvar as tabelas em PDF.

 

Linha do erro (1004): 

Sheets("aux").Range("Q1:y40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dir & ".pdf"

 

Código inteiro:

 

Option Explicit

Global Par(1 To 501) As Variant
Global Email(1 To 501) As Variant
Global Email2(1 To 501) As Variant
Global Par2(1 To 501) As Variant
Global Par3(1 To 501) As Variant
Global cSup As String
Global cNome As String
Global xPrincipal, xPlanSup
Global nPerc, nProc, nMarcados As Integer

 

Sub SalvaPDF()
Application.DisplayAlerts = False
Dim nAux As Integer
Dim MyOlapp As Object, MeuItem As Object
For nAux = Sheets("Aux").Range("ah1").Value To Sheets("Aux").Range("ai1").Value
Par(nAux) = Sheets("aux").Range("ad" & nAux).Value

Dim nome, dir As String

 

Sheets("aux").Select

ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("chave"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("chave").CurrentPage = _
Par(nAux)

ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("chave"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabela dinâmica3").PivotFields("chave").CurrentPage = _
Par(nAux)

dir = Sheets("Aux").Range("u4").Value & " - " & Sheets("Aux").Range("b8").Value & " - " & Sheets("Aux").Range("q15").Value

Rows("9:13").Select
Selection.EntireRow.Hidden = True


If ActiveSheet.PageSetup.Orientation = xlPortrait Then
ActiveSheet.PageSetup.Orientation = xlLandscape
Else
ActiveSheet.PageSetup.Orientation = xlLandscape
End If

 

Sheets("aux").Range("Q1:y40").ExportAsFixedFormat Type:=xlTypePDF, Filename:=dir & ".pdf"

 

Next
End Sub

0 Replies