Печать рабочего листа excel в формате PDF
Я написал подпрограмму для печати листа excel в формате PDF. Это работает на моем компьютере с использованием Office 365, но не работает, когда я запускаю программу на ноутбуке с Office 2003.
Я успешно распечатал рабочий лист вручную, используя "Microsoft Print To PDF" на обеих машинах. Ноутбук создает файл, но он не имеет никакого содержимого и не может быть открыт. Он имеет размер ноль байт, но если он создан вручную, то составляет 288 КБ.
У кого-нибудь есть какие-нибудь идеи, что происходит?
Что я уже пробовал:
Код, который я написал, выглядит следующим образом;
Private Sub SaveWorksheetAsPDF(Title As String, Path As String) Dim FileName As String = "\ResultsSheet" & Title & ".pdf" Dim totalFileName As String = Path & FileName 'Print the document to PDF oSheet.PrintOut(copies:=1, Preview:=False, ActivePrinter:="Microsoft Print To PDF", PrToFileName:=totalFileName, PrintToFile:=True) End Sub