Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Crystal Report количество напечатанных листов / 6 сообщений из 6, страница 1 из 1
06.10.2008, 11:18
    #35577528
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
необходимо вести учет напечатанных операторами страниц, печать отчетов ведеться с помощью Crystal Reports 10 в FoxPro 6. Как узнать количество отправленных на печать страниц?

Печать отчета делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
DBFPath='c:\REPORT\tab.dbf'
RPTPath='c:\REPORT\full_.rpt'
Fio='ПУПКИН ВАСИЛИЙ'

CRApplication = createobject ("CrystalRuntime.Application.10")
CRReport = CRApplication.OpenReport(RPTPath) 
CRReport.Database.Tables( 1 ).Location = DBFPath
CRReport.ParameterFields( 1 ).SetCurrentValue(Fio)

*kolprint = CRReport.PageCount() - в  8  кристале на основе олекантрола так работает в  10  нет...

CRReport.printout(.F.)
release CRReport
release CRApplication

Может можно как то по другому узнать количество напечатанных листов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2008, 13:06
    #35577929
Kruchinin Pahan
Kruchinin Pahan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
lexusXXXнеобходимо вести учет напечатанных операторами страниц, печать отчетов ведеться с помощью Crystal Reports 10 в FoxPro 6. Как узнать количество отправленных на печать страниц?

Печать отчета делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
DBFPath='c:\REPORT\tab.dbf'
RPTPath='c:\REPORT\full_.rpt'
Fio='ПУПКИН ВАСИЛИЙ'

CRApplication = createobject ("CrystalRuntime.Application.10")
CRReport = CRApplication.OpenReport(RPTPath) 
CRReport.Database.Tables( 1 ).Location = DBFPath
CRReport.ParameterFields( 1 ).SetCurrentValue(Fio)

*kolprint = CRReport.PageCount() - в  8  кристале на основе олекантрола так работает в  10  нет...

CRReport.printout(.F.)
release CRReport
release CRApplication

Может можно как то по другому узнать количество напечатанных листов?
lnPageTotal = CRReport.PrintingStatus.NumberOfPages
По идее, это должно заставить репорт отрендриться и рассчитать количество страниц.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2008, 13:24
    #35577977
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
Kruchinin Pahan респект тебе и уважуха, все прекрасно работает! Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2008, 20:02
    #35579085
вопр
вопр
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
В догонку вопрос по кристалу. Нет ли у кого случайно иерархии объектов для кристала 10 или 11? Для 8-ки есть описаловка на фоксхелпе, знаю и работаю их vfp с кристалом 9, а вот очень хочется посмотреть объекты последних кристалов и как с ними работать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2008, 05:30
    #35579351
lexusXXX
lexusXXX
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
вот я че то не смог найти описания методов и объектов Crystal 10, единственное как можно посматреть список свойств и методов, я делаю так в FoxPro 9 создаю объект в командном окне и открываю отчет а потом в опять же в командном окне смотрю список, ставлю точку и фокс выдает подсказку...

CRApplication = createobject ("CrystalRuntime.Application.10")
CRReport = CRApplication.OpenReport('c:\REPORT\full_.rpt')

CRReport.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2008, 05:35
    #35579352
Kruchinin Pahan
Kruchinin Pahan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Crystal Report количество напечатанных листов
lexusXXXвот я че то не смог найти описания методов и объектов Crystal 10, единственное как можно посматреть список свойств и методов, я делаю так в FoxPro 9 создаю объект в командном окне и открываю отчет а потом в опять же в командном окне смотрю список, ставлю точку и фокс выдает подсказку...

CRApplication = createobject ("CrystalRuntime.Application.10")
CRReport = CRApplication.OpenReport('c:\REPORT\full_.rpt')

CRReport.
rdcsdk_com_dg.chm входит в поставку 11 Developer
CrystalDevHelp.chm входит в поставку 10 (толи advanced, толи developer она тоже называлась).

Можно скачать с BusinessObjects

А для просмотра методов и свойств объектов можно использовать Tools \ Object Browser
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Crystal Report количество напечатанных листов / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 494ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1587215]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 55ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 338ms
total:  494ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]