здравствуйте, уважаемые знатоки помогите пожалуйста.. требуется : макросом вывести на печать (сохранить в PDF), там же где расположен файл в папку допустим - Печать (если нет то создаеть), присвоить имя - что в яч А12 (название поля), сохранить и при наличии файла с таким же именем перезаписать. файл прикладываю....записал макрорекордером до момента сохранения....дальше не знаю как
здравствуйте, уважаемые знатоки помогите пожалуйста.. требуется : макросом вывести на печать (сохранить в PDF), там же где расположен файл в папку допустим - Печать (если нет то создаеть), присвоить имя - что в яч А12 (название поля), сохранить и при наличии файла с таким же именем перезаписать. файл прикладываю....записал макрорекордером до момента сохранения....дальше не знаю какmicholap_denis
Sub PivotToPDF() Dim FolderPath As String, piv As PivotTable FolderPath = ThisWorkbook.Path & "\Печать" On Error Resume Next MkDir FolderPath On Error GoTo 0 With ActiveSheet Set piv = .PivotTables("СводнаяТаблица1") .PageSetup.PrintArea = piv.TableRange1.Address .ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & piv.RowFields(1), Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End With End Sub
[/vba]
Попробуйте так [vba]
Код
Sub PivotToPDF() Dim FolderPath As String, piv As PivotTable FolderPath = ThisWorkbook.Path & "\Печать" On Error Resume Next MkDir FolderPath On Error GoTo 0 With ActiveSheet Set piv = .PivotTables("СводнаяТаблица1") .PageSetup.PrintArea = piv.TableRange1.Address .ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\" & piv.RowFields(1), Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End With End Sub
спасибо Pelena, ща не проверю...нет доступа к компу. через тел посмотрел...практически уверен что все гут, как всегда у вас. спасибо отрпишусь
спасибо Pelena, ща не проверю...нет доступа к компу. через тел посмотрел...практически уверен что все гут, как всегда у вас. спасибо отрпишусьmicholap_denis
Pelena, пишет что для области печати выбрана одна ячейка... печатает только первую строку... а еще подскажите- применяю макрос (к трем таблицам...скопировал на три макроса , указал для каждого свою таблицу и подвесил на кнопку все три макроса поочереди чтоб запускались...... печатает только если и ту таблицу которая активирована...а как чтоб без активации и даже с другого листа выводить на печать?
и еще , можно изменить: что бы не присваивало имя сохраняемогу файлу по названию поля, а присваивало то имя что в макросе пропишется?
Pelena, пишет что для области печати выбрана одна ячейка... печатает только первую строку... а еще подскажите- применяю макрос (к трем таблицам...скопировал на три макроса , указал для каждого свою таблицу и подвесил на кнопку все три макроса поочереди чтоб запускались...... печатает только если и ту таблицу которая активирована...а как чтоб без активации и даже с другого листа выводить на печать?
и еще , можно изменить: что бы не присваивало имя сохраняемогу файлу по названию поля, а присваивало то имя что в макросе пропишется?micholap_denis
Pelena, с печатью разобрался, да извиняюсь сначала была идея имя файлу присваивать по полю....подправьте пожалуйста чтоб название в макросе для каждой таблице можно было указать...
Pelena, с печатью разобрался, да извиняюсь сначала была идея имя файлу присваивать по полю....подправьте пожалуйста чтоб название в макросе для каждой таблице можно было указать...micholap_denis
Pelena, все отлично работает, но.... печатает сводные первый лист чистый а на второй таблицу как и должна быть.....почему первый пустой выводит? проверил-- как то связано с тем что сводные созданы из Power Pivot из модели данных.(в обычных сводных печатает как надо) или параметры какие в сводных менять...что может быть? или просто задать в макросе на печать со 2стр (а как?)
Pelena, все отлично работает, но.... печатает сводные первый лист чистый а на второй таблицу как и должна быть.....почему первый пустой выводит? проверил-- как то связано с тем что сводные созданы из Power Pivot из модели данных.(в обычных сводных печатает как надо) или параметры какие в сводных менять...что может быть? или просто задать в макросе на печать со 2стр (а как?)micholap_denis
Pelena, нашел причину в таблице применены фильтры если их не скрывать(строки) то печатает на первой странице их а на второй саму таблицу если скрыть то первый лист выводит пустой....как победить? пример прикладываю...макрос Печать
Pelena, нашел причину в таблице применены фильтры если их не скрывать(строки) то печатает на первой странице их а на второй саму таблицу если скрыть то первый лист выводит пустой....как победить? пример прикладываю...макрос Печатьmicholap_denis
Зачем в отдельном макросе выделять таблицу, а потом в другом макросе использовать Selection? По теме: в макросе из сообщения 3 есть свойство для выделения таблицы без фильтров - TableRange1 Используйте его в макросе ВыбратьСводную [vba]
Зачем в отдельном макросе выделять таблицу, а потом в другом макросе использовать Selection? По теме: в макросе из сообщения 3 есть свойство для выделения таблицы без фильтров - TableRange1 Используйте его в макросе ВыбратьСводную [vba]
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
