Печать в *.pdf выбранных листов

[Eugmai86]

Добрый день,

Возникла необходимость быстро и много сохранять в пдф из Ексель файла в одну и туже папку. Знаний и опыта с VBA ~0! Разобрался как кнопкой отправлять страницу на печать, однако, как указать путь для сохранения не нашел...
Еще бы в идеале хотелось отмечать галочками какие страницы выводить на печать. Помогите если не трудно, заранее спасибо!

В приложении образец того что хотелось бы видеть. Пользуюсь Excel 2007.

test.zip

[artsanox]

Свойствах принтера установить путь

[Eugmai86]

Спасибо, еще бы в идеале хотелось отмечать галочками какие страницы выводить на печать

[artsanox]

Держите печать с выбором листов.
P.S. Для того чтоб сохраняло в определенную пользователем папку для всех файлов, нужно указать путь в свойствах принтера не в программе excel, а в панели управления > Принтеры и факсы (Windows XP) или Устройства и принтеры (Windows 7). Тогда будет сохранять все файлы по этому пути.

[Eugmai86]

Спасибо огромное все работает как надо! Просто супер!!!

[Eugmai86]

Еще один вопрос, а как можно добавить функцию чтоб название файла при сохранении программа брала из названия самого листа?

[Hugo121]

Не понял - а почему не использовать сохранение в pdf? (аттачменты не смотрел, но все говорят про печать)
Версия Экселя ведь озвучена.
Вот записал макрос - вроде всё прозрачно:

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\post_320347.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=True' тут нужно заменить на False
End Sub

И кстати название файла не проблема любое поставить.

[Eugmai86]

Да, пробую только возвращает ошибку: Нет данных для вывода на печать.

И в таком варианте я не могу выбрать дисты которые нужно распечатать (каждый раз разные).

[shanemac51]

Еще бы в идеале хотелось отмечать галочками какие страницы выводить на печать. Помогите если не трудно, заранее спасибо!

И в таком варианте я не могу выбрать листы которые нужно распечатать (каждый раз разные).

в екселе конечно сложность
--листы
--страницы

вводу этого
-лист может состоять из нескольких страниц
-распечатать 5-ю страницу 7 листа---неясно какая это страница в общем потоке печати
-или лист=1 странице

[Hugo121]

не могу выбрать дисты

- так вот же: ActiveSheet.ExportAs.
Т.е. активируете нужный лист, или конкретно пишите
Sheets(2).ExportAs...