Делаю скрипт вывода на печать спецификации А3 с рамками ЕСКД
1) Создал 2 рамки формата А3: для первой страницы - с большим штампом
для последующих - с малым штампом
и загнал их в *.EMF с прозрачным фоном.
2) Сформировал для печати таблицу в Excell.3) Выставил отступы, задал лист, выставил| Код |
|---|
.DifferentFirstPageHeaderFooter = True |
| Код |
|---|
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-ой страницы?