Колонтитулы первой страницы

Пользователь

Сообщений: 4 Регистрация: 03.12.2013

03.12.2013 17:48:44

Делаю скрипт вывода на печать спецификации А3 с рамками ЕСКД

1) Создал 2 рамки формата А3:
для первой страницы - с большим штампом
для последующих - с малым штампом
и загнал их в *.EMF с прозрачным фоном.
2) Сформировал для печати таблицу в Excell.
3) Выставил отступы, задал лист, выставил

Код
.DifferentFirstPageHeaderFooter = True

4) Выбираю свои рамки для колонтитулов через файл-диалог

Код

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Filters.Clear: .Filters.Add "", "*.emf"
    .show
    getfilepath1 = .SelectedItems(1): PS = Application.PathSeparator
    getfilepath2 = .SelectedItems(2): PS = Application.PathSeparator
End With

getfilepath1 - это файл для колонтитула 1-ой страницы
getfilepath2 - это файл для колонтитула 2-ой и последующих страниц
5) Теперь готов вставлять рамки в колонтитулы НО...

Код

With ActiveSheet.PageSetup.LeftFooterPicture
    .Filename = getfilepath2
    .LockAspectRatio = False
    .Height = Application.CentimetersToPoints(31)
    .Width = Application.CentimetersToPoints(41.3)
End With 
ActiveSheet.PageSetup.LeftFooter = "&G"

Данный код позволяет вставить только для страниц со 2-ой и последующих

А как вставить картинку в колонтитул 1-ой страницы?

Изменено: wildrabbit - 03.12.2013 18:24:28 (поправил)

wildrabbit Пользователь Сообщений: 4 Регистрация: 03.12.2013	#2 04.12.2013 14:25:00 Ручным способом вставить картинку в колонтитул 1-ой страницы можно, но как этого добиться с помощью средств VBA? Разве никто с колонтитулами не работал раньше? PS: Прикладываю свой скрипт. Может кто-нить посмотрит и подскажет что-нить дельное? Прикрепленные файлы Спецификация.xlsm (76.54 КБ)

Читают тему