Печать в конкретную папку

[-Elias-]

Здравствуйте.
Подскажите пожалуйста.
Использую для сохранения и печати(печать используется не для вывода на принтер, а для перевода в PDF) макрос:

Sub печать_пдф()

   ActiveWorkbook.SaveAs "C:\Users\" & Range("D14").Value & ".xml"    ' сохранение файла в конкретную папку, название файла берется из конкретной ячейки

    ActiveWindow.SelectedSheets.PrintOut Copies:=1    ' печать файла 
End Sub

Теперь задача стоит в том, чтобы сохранить и распечатать в две разные папки, как сохранить я додумал, а как теперь конвертировать в PDF в две папки один и тот же файл?
Спасибо.

[IgorGO]

сохраните файл как ПДФ вручную, запишите действия макрорекордером, посмотрите как это было сделано, используйте

[-Elias-]

сохраните файл как ПДФ вручную, запишите действия макрорекордером, посмотрите как это было сделано, используйте

Не получается в конкретную папку.
Макрос записывает это:

ActiveWindow.SelectedSheets.PrintOut Copies:=1

А мне необходимо две конкретные папки задать, куда складывать PDFки как для сохранения в папку.

[IgorGO]

сохраните файл как ПДФ вручную

[-Elias-]

у меня не сохраняет файл как ПДФ, т.е. нет возможности выбрать расширение при сохранении файла.

[EducatedFool]

надо не расширение выбирать
отдельный пункт меню есть:
http://excelvba.ru/faq/SaveAsPDF

[-Elias-]

У меня Эксель 2003, но суть ясна.
Нужна надстройка.
Сейчас я конвертирую в пдф путем печати PDF-Exchange
Спасибо.

[-Elias-]

Так, вообще признаю свою тупость))
Надо было просто в коде поменять расширение файла и не задавать глупых вопросов.

Sub печать_пдф()

    ActiveWorkbook.SaveAs "C:\Users\" & Range("D14").Value & ".xml"    ' сохраняем в папку .xml
    ActiveWorkbook.SaveAs "C:\Users\" & Range("D14").Value & ".pdf"    ' сохраняем в папку .pdf
  
End Sub

Но..
Эксель 2003 сохраняет с расширением .pdf, ридер видит, что это pdf-ка, но при открытии пишет, что не может открыть пдф файл. Наверно это от того, что нет надстройки для 2003 экселя и найти ее я не смог пока что...
Подойдет от 2007?
Подскажите пожалуйста.
Еще такой вопрос, после сохранения как запустить файл?
Файл будет сохраняться в виде двух pdf и двух xml в две разные папки.
Вроде ничего не забыл упомянуть.
Спасибо.

[EducatedFool]

Надо было просто в коде поменять расширение файла

если бы в этой жизни было всё так просто...
зачем делать конвертеры какие-то... поменял расширение файла, и всё

расширение менять - содержимое файла не изменится
для экспорта в ПДФ есть надстройка и для Excel 2003 (вроде бы)
ищите код по фразе ActiveWorkbook.ExportAsFixedFormat

[-Elias-]

если бы в этой жизни было всё так просто...

Я имел ввиду, сразу сформулировал бы вопрос про конвертер, а не путал бы лишний раз людей с печатями...
Спасибо. Буду искать.