Добрый. Видимо, надо как-то подсчитывать количество строк сводной, анализировать - влезет/не влезет на 1 лист и в зависимости от результата анализа задавать какие-то параметры выгрузки в pdf. Да, вроде так.
Запишите указанные действия макрорекордером и будет Вам код Например так
Код
With Sheets("123")
With .PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & .PivotItems(i) & ".pdf"
End With