Generar PDF con Macro en Excel

M?a
26 de Abril del 2005
Tengo la siguiente macro, para generar 20 PDF con distintas vistas de una Tabla Dinámica:
(Por razones de espacio he omitido el vector o arreglo, la sub destacar y la sub limpieza.)
Sub pdf()
llenado_vector
Sheets("Inf_Esp").Select
For i = 1 To 20
ActiveSheet.PivotTables("Tabla dinámica11").PivotFields("Especialidad").CurrentPage = especialidades(i) ' "ARQuitectura"
limpieza
On Error Resume Next
If especialidades(i) = "#N/A" Then
ActiveSheet.PivotTables("Tabla dinámica11").PivotSelect "Nombre[All;Sum] #N/A", xlDataAndLabel ' ARQuitectura", xlDataAndLabel
Else
ActiveSheet.PivotTables("Tabla dinámica11").PivotSelect "Nombre[All;Sum]" & especialidades(i), xlDataAndLabel ' ARQuitectura", xlDataAndLabel
End If
destacar
ActiveWindow.SelectedSheets.PrintOut Copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller"
Next

Con la instrucción de PrintOut anterior, tengo que ir dando nombre a cada uno de los 20 PDF que genero lo cual es muy ineficiente. Por esto, cambié esa línea por:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True, prtofilename:="c:" & especialidades(i) & ".pdf"

Sin embargo, con esta forma, lo que obtengo son archivos con 0Kb y algunos con algún peso, pero al abrirlos me da error. Dice que el tipo de archivo no corresponde o que esta dañado y que no puede leer la información. Obviamente no muestra nada.
Si alguien me puede ayudar lo agradezco.
Mónica