Веб-студия Александра ПЕТРОВА

Визуальная реализация ваших фантазий!
Главная
 к началу
Работа
 оценить
Услуги
 заказать
Архив
 скачать
Музыка
 послушать
Информация
 узнать
Контакты и общение
 пообщаться
  Работа:   сайты |  программы и сервисы |  графический дизайн |  VBA-макросы
Вернуться к разделу «»
    к меню «Макросы для MS-офиса»

    Word-макрос: настройка страницы печати
 Настройка страницы печати: отступы, ориентация страницы, шрифт, размер, интерлиньяж

Sub PrintFormat()
' AlexPetrov.ru
' Ctrl+Alt+P
' настройки страницы печати файла Word

' отступы, ориентация страницы
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.7)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.1)
.FooterDistance = CentimetersToPoints(1.1)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With

' шрифт, размер, интерлиньяж:
Selection.WholeStory
Selection.Font.Name = "Arial Narrow"
Selection.Font.Size = 10
Selection.Font.Color = wdColorBlack
With Selection.ParagraphFormat
.RightIndent = CentimetersToPoints(0)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 10
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With

End Sub
 

Мнения посетителей по данной теме


А Ваше мнение, впечатление от прочитанного/увиденного/услышанного?


 Имя:   E-mail:   ( спрятать)
Текст:
 
Высказать мнение



Способы связи по вопросам разработки сайта и графического дизайна:

    E-mail:     

    Skype: petrov001
  



 
 Страница поэта Сергея Чупаленкова

Все обновления...    

Не хочу я быть,
Как и все.
Мне б босым ходить
По росе.

Да творить стихи.
Как Басё.
Да избыть грехи.
Вот и всё.


Автор: Сергей Чупаленков.

 Ефим Пассов — основатель методики иноязычного образования

Все новости...    

Ефим Израилевич Пассов.
Заслуженный деятель науки РФ, доктор педагогических наук, профессор,
основатель методики, как науки — теории и технологии иноязычного образования.

Этот ресурс также входит в группы:
  новые работы;  официальные сайты

Записи из блога:

 Copyright © 2008-2018  AlexPetrov.ru



1 2