Форум программистов, компьютерный форум, киберфорум
HCL Notes: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/80: Рейтинг темы: голосов - 80, средняя оценка - 4.90
0 / 0 / 0
Регистрация: 30.11.2007
Сообщений: 410
1

печать .doc Application посредством Ls

12.11.2009, 09:26. Просмотров 14562. Ответов 8
Метки нет (Все метки)

всем добрый день!

в LS
формирую для печати коллекцию документов .doc

по коллекции документов

1. создаю word application
2. заполняю word значениями из doc
3. вызываю на печать командой
4. делаю word.quit
далее следующий пошел


не успевает печатать )) очередь для печати пустая, деаю для одного документа, работает )
кто подобное делал? как сделать чтобы ?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2009, 09:26
Ответы с готовыми решениями:

Post запрос в ASP.NET application (не mvc) посредством JS к *.aspx
Добрый вечер... Каким образом организовать post запрос в ASP.NET application (не mvc)...

Вывод на печать doc-файла
Подскажите как вывести на печать за ранние созданный файл .doc. Если можно примером кода.

Печать посредством диалога PrintDialog
Как реализовать? Хочу распечатать например заголовок метки

двусторонняя печать Doc файла из Lotusa
Всем доброго времени суток. Столкнулся с проблемой при использовании OLE Worda 2003. Пытаюсь...

8
0 / 0 / 0
Регистрация: 28.06.2009
Сообщений: 1,567
12.11.2009, 09:28 2
Цитата Сообщение от deeeman
4. делаю word.quit
а зачем каждый раз пересоздавать объект-то? закрывайте док, создавайте новый док - тогда ворд будет жить и печатать...
0
0 / 0 / 0
Регистрация: 30.11.2007
Сообщений: 410
12.11.2009, 09:33 3
т е делать

word.close?
0
0 / 0 / 0
Регистрация: 28.06.2009
Сообщений: 1,567
12.11.2009, 09:40 4
скорее WordApplication.ActiveDocument.Close ну или как там правильно в контексте версии ворда...
0
0 / 0 / 0
Регистрация: 30.11.2007
Сообщений: 410
12.11.2009, 10:14 5
еще вопрос:

создаю в ворде табличку:


With wdApp.Application.Selection
Set wdTable = wdApp.ActiveDocument.Tables.Add(.Range, 15, 8)
wdTable.Borders.OutsideLineStyle = 1
wdTable.Borders.InsideLineStyle = 1
wdTable.Rows.Alignment = 1 =wdAlignRowCenter
wdTable.Columns(1).Width=wdApp.InchesToPoints(0.45)
wdTable.Columns(2).Width=wdApp.InchesToPoints(0.45)
end with

а как в определенную ячейку записать текст ? по хелпу ничего не могу найти...
0
0 / 0 / 0
Регистрация: 19.04.2009
Сообщений: 2,219
12.11.2009, 10:26 6
Цитата Сообщение от deeeman
а как в определенную ячейку записать текст ? по хелпу ничего не могу найти...
Можно в ворде включить запись макроса, нарисовать табличку, повтыкать в разные ячейки текст и посмотреть, что сгенерит ворд.
0
0 / 0 / 0
Регистрация: 28.06.2009
Сообщений: 1,567
12.11.2009, 10:28 7
чуть глубже таблицы

Table.Cell Method
Returns a Cell object that represents a cell in a table.
Syntax

expression.Cell(Row, Column)

expression Required. A variable that represents a Table object.

Parameters

Name Required/Optional Data Type Description
Row Required Long The number of the row in the table to return. Can be an integer between 1 and the number of rows in the table.
Column Required Long The number of the cell in the table to return. Can be an integer between 1 and the number of columns in the table.

Return Value
Cell

Example


This example creates a 3x3 table in a new document and inserts text into the first and last cells in the table.

Visual Basic for Applications
Dim docNew As Document
Dim tableNew As Table

Set docNew = Documents.Add
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3)

With tableNew
.Cell(1,1).Range.InsertAfter "First cell"
.Cell(tableNew.Rows.Count, _
tableNew.Columns.Count).Range.InsertAfter "Last Cell"
End With

This example deletes the first cell from the first table in the active document.

Visual Basic for Applications
If ActiveDocument.Tables.Count >= 1 Then
ActiveDocument.Tables(1).Cell(1, 1).Delete
End If




Цитата Сообщение от nvy
Можно в ворде включить запись макроса
это воистину гениальное изобретение MS жаль его до сих пор в лотусине нет, а так бы помогло
0
0 / 0 / 0
Регистрация: 30.11.2007
Сообщений: 410
12.11.2009, 11:01 8
СПАСИБОЩЕ!!!
0
0 / 0 / 0
Регистрация: 23.08.2008
Сообщений: 6,252
12.11.2009, 12:55 9
может подумать об альтернативах (PS, PDF) ?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2009, 12:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Изменение и печать Doc через Delphi
В edit'ы вбиваются данные, после их необходимо расставить в определём месте в Doc'e и вывести на...

Заполнение и печать шаблона .doc файла
Здравствуйте! Есть идея не знаю как реализовать. Хочу написать консольное приложение, где...

Можно ли запретить печать документа .doc или .xls
И как это можно воплотить в жизнь. И еще бы хорошо запретить любое копирование файла, документа....

Программно задать вертикальный сдвиг DOC.PrintPage при выводе на печать
Есть форма, которая после заполнения выводит текст на печать: Private Sub DOC_print(ByVal sender...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.