Публикация

Печать нескольких документов Word

Добрий день, Уважаемые!
Предлагаю Вам решение, реализующее печать нескольких копий документов Word без их визуального открытия. В качестве параметров функция получает полный путь к файлу и количество копий документа.

/* Печать документов */
function PrintDocuments(FileName, Count) {
try {
System.BeginProcessing();
System.ProcessMessages();
var Word = new ActiveXObject("Word.Application");
var Doc = Word.Documents.Open(FileName);
var IsError = false;
try {
Word.PrintOut(false, false, 0, "", "", "", 0, Count);
} catch(e) {
Log.Write(e.description);
IsError = true;
}
Word.Quit();
} finally {
System.EndProcessing();
}
if (!IsError) {
ShowInformationDialog("Документ успешно распечатан.");
} else {
ShowInformationDialog("При печати документа возникли ошибки.");
}
}

/* Пример использования: */
function Main() {
var Path = Connector.WorkingDirectory;
var FileName = Path + "\Test.doc";
PrintDocuments(FileName, 2);
}

Пока все. :)

Нравится

Поделиться

0 комментариев
Показать все комментарии