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
