У меня загадочная проблема. Когда я использую приведенный ниже код для экспорта листа в PDF, он работает нормально. Когда я заставляю своего коллегу из той же компании использовать его на своем компьютере, он отлично экспортируется, и Adobe прекрасно представляет документ. Когда я заставляю кого-то постороннего сотрудника компании экспортировать его, используя тот же файл, но на своем компьютере, он отключает нижнюю часть PDF-файла или, скорее, нижнюю часть листа Excel. Поэтому моя проблема связана с размером или форматом страницы ...
Я не знаю, вызывает ли это Adobe проблему при экспорте кода и использовании предопределенных настроек в настройках Adobe, или ее что-то еще?
Dim ToPrint As Integer
On Error GoTo ErrorHandler
ToPrint = Sheets("Home").Range("Too")
Application.ScreenUpdating = False
Sheets("CI").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\PDF Files\CIExport.pdf", _
From:=1, _
To:=ToPrint, _
OpenAfterPublish:=True
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
MsgBox "Please close Adobe/Open Adobe files, then press again"
Exit Sub