печать в нижнем левом углу

[Ципихович Эндрю]

Здравствуйте, возникла необходимость печатать в нижнем левом углу текста
отпечатано 2 экземпляра
1 в адрес
2 в дело
исполнил Петров А.К.
номер контактного телефона - рабочий 8 (36513) 69669372
24 декабря 2011 г.
последняя строка это текущая дата
Есть мысли как это сделать?? Спасибо

[Казанский]

Вставь это все в нижний колонтитул, для даты: Вставка - Дата и время - выбери нужный формат, галка "Обновлять автоматически" (тогда вставится поле).

[Ципихович Эндрю]

колонтитулы... сколько с ними не пытался познакомится, всё время как и сейчас не внушают доверия, мне надо, что то вроде этого

Sub Сетка()

    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.Font.Size = 11
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="отпечатано экземпляров: __"
    Selection.TypeParagraph
    Selection.TypeText Text:="__ в адрес"
    Selection.TypeParagraph
    Selection.TypeText Text:="1 в дело"
    Selection.TypeParagraph
    Selection.TypeText Text:="исполнил СО Гуня А.К."
    Selection.TypeParagraph
    Selection.TypeText Text:="номер контактного телефона - рабочий: 8(3513)6989552, мобильный: 89028912680"
    Selection.TypeParagraph
    'написать текст - текущую дату, в формате "d mmmm yyyy" & " г."
    Selection.TypeText Text:=Format(Date, "d mmmm yyyy") & " г."
    'выделить всё
    Selection.WholeStory
    Application.PrintOut fileName:="", Range:=wdPrintSelection, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
                         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
    'Copies:= ... - печать копий ... штук (штуки)
    ActiveWindow.Close

End Sub

осталось одно, как на строке ActiveWindow.Close сделать чтобы не спрашивало сохранить не сохранить документ?

[Казанский]

activedocument.close false

[Ципихович Эндрю]

то, что нужно, спасибо

[Ципихович Эндрю]

вот ещё что подзабыл, напомните строки

Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph

можно писать одной строкой типа Selection.TypeParagraph (3)
А как точно забыл
????

[Казанский]

Ну скажем

selection.TypeText string(3,vbcr)

[mik77]

А как быть если нужно такую же сноску в левом нижнем углу страницы, но после текста. То есть печататься будет не пустая страница со сноской.
Высчитывать сколько TypeParagraph нужно оставить перед сноской?
Ведь может получиться так, что после всех этих TypeParagraph сноска напечатается на следующей странице и не в самом низу.

[Казанский]

Колонтитул - ИМХО оптимальное решение.
Можно еще поместить текст в Надпись с фиксированным положением относительно страницы (а не относительно текста).

[Ципихович Эндрю]

Спасибо, ИМХО в этом случае печатается "с неба"
С колонтитулами нервов не хватает понять их задумку
> поместить текст в Надпись с фиксированным положением относительно страницы (а не относительно текста)
Это опять же речь о колонтитулах?, если нет тогда подскажите как?