0 / 0 / 0
Регистрация: 25.02.2018
Сообщений: 7
1
Excel

При экспорте в PDF выводит файл на печать с ошибкой

01.12.2018, 16:56. Показов 613. Ответов 5

На винде работает без проблем.
На маке если делать вручную - работает тоже, но макросом выдает эту ошибку.

Visual Basic
1
2
3
4
Sub PDF_Name_Only()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & Application.PathSeparator & _
ActiveSheet.Name, OpenAfterPublish:=False
End Sub
Миниатюры
При экспорте в PDF выводит файл на печать с ошибкой   При экспорте в PDF выводит файл на печать с ошибкой  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2018, 16:56
Ответы с готовыми решениями:

Неправильно выводит при экспорте из memo в Excel
есть код, нужно, что бы выводилось все ровно procedure TForm1.Button1Click(Sender: TObject); ...

При экспорте данных в pdf формате пишет: Убедитесь что объект существует и его имя не содержит ошибок?
Как исправить при экспорте данных в pdf формате пишет: Убедитесь что объект существует и его имя не...

Печать в PDF файл
Нашел пример, попробовал, рабочий, все отлично, но он создает PDF файл в той папке где программа,...

При экспорте кода в PDF русский текст заменяется на знак "?"
Здравствуйте. Семинарист сказал сдавать ему проги в печатном виде (сказал он, а стыдно мне). Код...

5
oh my god
1447 / 786 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
01.12.2018, 23:17 2
Попробуй этот вариант

Visual Basic
1
2
3
4
5
Sub PDF_Name_Only()
    Dim fn$
    fn = "Macintosh HD:Users:" & Environ("username") & ":Desktop:" & ActiveSheet.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fn
End Sub
0
1465 / 1011 / 321
Регистрация: 11.07.2014
Сообщений: 3,608
02.12.2018, 04:53 3
1337Roly, а у вас на компе принтер установлен (миниатюра 1)? У меня подобное было на ноутбуке без принтера.
Надо формально установить (не подключить реальный) любой принтер и всё должно сработать. Это мне Pashulka подсказал.
0
0 / 0 / 0
Регистрация: 25.02.2018
Сообщений: 7
02.12.2018, 12:32  [ТС] 4
Дело в том,что при сохранении вручную все работает без проблем.
0
1465 / 1011 / 321
Регистрация: 11.07.2014
Сообщений: 3,608
02.12.2018, 12:54 5
1337Roly, у меня не на МАС работает так, посылаю свои коды на всякий случай, есть кое-какие различия
Visual Basic
1
2
3
4
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Trim(Nam) & ".pdf", _
  Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, OpenAfterPublish:=True 'False
0
0 / 0 / 0
Регистрация: 25.02.2018
Сообщений: 7
02.12.2018, 14:10  [ТС] 6
Решено переустановкой офиса 2016 на 2011
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2018, 14:10

Битый музыкальный файл при экспорте
Так получилось,что когда я экспортировал свой проект из FL Studio в wav,случилась ошибка,которая...

Программа выводит ошибку "list index out of bounds (3)" при экспорте в Excel
При попытке экспорта данных в Excel из Базы данных (DBGrid в качестве посредника) программа выдает...

Кодировка при экспорте данных в СSV-файл
Здравствуйте! Передо мной стоит задача экспорта данных в формат CSV. Я пробовал делать это...

Ненужная строка при экспорте текста в CSV-файл
Как избавиться от второй строчки?(на скриншоте) $CSVfileOld="F:\Практика\user.csv" #переменная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.