Экспорт листа Excel в PDF - как изменить шрифт, интервал, размер?

Question

Мне нужно экспортировать лист Excel в PDF или Word Doc, это не имеет значения.Я знаю, как это сделать.

Реальная проблема заключается в следующем: на листе Excel отображаются имена разных сотрудников.Под этими именами мы видим список всех компаний, на которые они когда-либо работали.Список имен по горизонтали.

Я хочу иметь возможность изменять формат листа, когда происходит извлечение.

Поскольку имен много, я хочу иметь возможность изменить шрифт, интервал, немного связать их, чтобы все могло уместиться на одной странице.

Спасибо!

Sub MakePDF()
'
' MakePDF Macro
'

'
    ChDir "C:\Users\charle\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\charle\Desktop\EXCEL2PDF.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub