Как создать PDF файл с именем ZAKAZ_(дата сегодня).pdf

@LV112 · Регистрация: 22.01.2011

Author24 — интернет-сервис помощи студентам

Как создать из "Excel таблицы" - PDF файл с именем ZAKAZ_(дата сегодня).pdf
при помощи макроса?

Есть такой макрос:

Sub Макрос1()
' макрос, записанный макрорекордером
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\ZAKAZ_" & Format(Now, "DD_MMMM_YYYY") & ".pdf"
End Sub

Как в текст макроса добавить "область печати" и PDF только активного листа?, а то макрос делает PDF из всех данных в файле включая все вкладки.

excel 2007

@LV112 · 26.01.2011, 20:51 **[ТС]**

Никто не знает?

@~~Busine2009~~ · 26.01.2011, 22:06

Чтобы правильно записать в данном случае макрос с помощью макрорекордера нужно сделать следующее:
Запускаете запись макроса - Круглая кнопка - Сохранить как - PDF или XPS - Выбираете место, где сохранить файл, - в правом нижнем углу нажимаете на кнопку "Параметры..." - Опубликовать "выделенные листы" - убираете галочку "Не учитывать области печати" - OK - Опубликовать - Отключаете запись макроса.
В результате получается код, который можно подредактировать.

Далее необходимо задать область печати:
Выделяете диапазон ячеек, который надо отправить на печать, - вкладка "Разметка страницы" - группа "Параметры страницы" - Область печати - Задать.

Далее, используя мой код, сделайте его под себя:

Visual Basic

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Documents and Settings\Пользователь\Рабочий стол\" & "ZAKAZ_(" & Date & ")" & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

@LV112 · 26.01.2011, 23:13 **[ТС]**

Спасибо, теперь все ок!

@LV112 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 26
		1
	Как создать PDF файл с именем ZAKAZ_(дата сегодня).pdf 25.01.2011, 13:23. Показов 8203. Ответов 3 Метки нет (Все метки) Как создать из "Excel таблицы" - PDF файл с именем ZAKAZ_(дата сегодня).pdf при помощи макроса? Есть такой макрос: Sub Макрос1() ' макрос, записанный макрорекордером ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\ZAKAZ_" & Format(Now, "DD_MMMM_YYYY") & ".pdf" End Sub Как в текст макроса добавить "область печати" и PDF только активного листа?, а то макрос делает PDF из всех данных в файле включая все вкладки. excel 2007 0

@LV112 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 26
	26.01.2011, 20:51 [ТС]	2
	Никто не знает? 0

@LV112 0 / 0 / 0 Регистрация: 22.01.2011 Сообщений: 26
	26.01.2011, 23:13 [ТС]	4
	Спасибо, теперь все ок! 0