@command([fileprint]; .....)

на виде есть кнопка печати @Command([FilePrint]; "";"";"";"";"";"PrintA")
Скажите пожалуйста, как сделать, чтобы печать шла не сразу, а сначала появлялась страница просмотра, а потом только можно было печатать

 

Лучше выводите в word и печатайте через него. У лотуса две слабые стороны - печать и отчёты, намучаетесь...

 

спасибо за ответ.
А что в таком виде, как вначале написал, нельзя сделать просмотр?! сразу только можно на печать?

 

nvy
спасибо, извеняюсь не видел ответ, поэтому дописал вопрос выше.

 

решил делать печать в Word, использую код, который нашел на сайте:

Код (Text):

Dim s As New notessession
Dim todaydate As New notesdatetime("Today")

Dim word As Variant
Dim wordoc As Variant

Dim todaysdate As String
Dim orderid As String
Dim producedby As String
Dim storeid As String
Dim customername As String
Dim address As String
Dim citytown As String
Dim postcode As String
Dim daytimeno As String
Dim eveningno As String

'Присваивание значений пересенным (Lotus)
todaysdate = todaydate.localtime
orderid = "2183763248"
producedby = s.username
storeid = "12345"
customername = "John Doe"
address = "Apartment 5c, 5 Test Avenue"
citytown = "Testtown"
postcode = "XX5 5XX"
daytimeno = "1234567890"
eveningno = "0987654321"

'Создание Word-документа
Set word = CreateObject("Word.Application") 'Создание объекта Word'a
Call word.documents.add("Return and Uplift.dot") 'Создание нового документа по шаблону Return and Uplift.dot
Set worddoc = word.activedocument 'Активация объекта

'Присваивание полям-Word'a значений из полей notes-документа
worddoc.FormFields(1).result = todaysdate
worddoc.FormFields(2).result = orderid
worddoc.FormFields(3).result = producedby
worddoc.FormFields(4).result = storeid
worddoc.FormFields(5).result = customername
worddoc.FormFields(6).result = address
worddoc.FormFields(7).result = citytown
worddoc.FormFields(8).result = postcode
worddoc.FormFields(9).result = daytimeno
worddoc.FormFields(10).result = eveningno

worddoc.saveas(customername) 'сохранение документа-Word'a с именем файла "John Doe.doc"
word.visible = True 'Сделать видимым окно Word'a
'word.quit 'закрытие Word'a

в этом примере используются данные, которые берутся не из документа. А как, например, вместо address = "Apartment 5c, 5 Test Avenue" добавить адрес из поля addres?

 

пробовал уже так, пишет "Variant does not contain an object" . не могу понять из-за чего

 

ну дык чтоб брать значения полей, нужно сначала сам док из базы получить, а в коде я чёто не вижу строк типа

Код (Text):

Dim uiws As New NotesUIWorkspace
Dim doc as NotesDocument

Set doc = uiws.CurrentDocument.Document
'...... и так далее .....

nvy - просто-таки сорвал с языка :please:

 

спасибо за ответы. Решил делать в Excel по шаблону.