Форум: "Начинающим";
Текущий архив: 2009.12.20;
Скачать: [xml.tar.bz2];

Вниз

Как передать данные в CRReport.PrintOut   Найти похожие ветки 

← →
Сергей   (2009-11-02 13:27) [0]

Всем привет.
Использую RAD Кристал Репорт 11.5.
Не могу передать в startPage или stopPage значение больше чем 32000
CRReport.PrintOut(false,1,true,startPage,stopPage) пишет - Некорретный параметр.
procedure PrintOut(promptUser: OleVariant; numberOfCopy: OleVariant; collated: OleVariant; startPageN: OleVariant; stopPageN: OleVariant); safecall;
Интересно то что если вызывать эту функцию с окном для ввода параметров печати - принимает без проблем если ввести параметры вручную в edit диапазона печати, но программно без окна не хочет.

---

← →
clickmaker ©   (2009-11-02 13:29) [1]

> startPage или stopPage значение больше чем 32000

сильно. а бумаги-то хватит?

---

← →
Сергей   (2009-11-02 13:36) [2]

программа для типографии. Кстати можно ли вызвать api функции печати и  использовать ее под кристал?

---

← →
clickmaker ©   (2009-11-02 13:54) [3]

так, а исходники-то CRReport.PrintOut есть?
или может, в CR есть какой-то хитрый глобальный параметр/настройка, типа MaxPageCount

---

← →
Dennis I. Komarov ©   (2009-11-02 14:00) [4]

>32000 - плохие числа,
давай 32767 передадим?

---

← →
Сергей   (2009-11-02 14:26) [5]

clickmaker,
В модуле unit CRAXDDRT_TLB;

IReport = interface(IDispatch)

procedure TReport.PrintOut(promptUser: OleVariant; numberOfCopy: OleVariant; collated: OleVariant; startPageN: OleVariant; stopPageN: OleVariant);
begin
 DefaultInterface.PrintOut(promptUser, numberOfCopy, collated, startPageN, stopPageN);
end;


В unit System

type
 IInterface = interface
   ["{00000000-0000-0000-C000-000000000046}"]
   function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
   function _AddRef: Integer; stdcall;
   function _Release: Integer; stdcall;
 end;

 IUnknown = IInterface;
{$M+}
 IInvokable = interface(IInterface)
 end;
{$M-}

 IDispatch = interface(IUnknown)
   ["{00020400-0000-0000-C000-000000000046}"]
   function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
   function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
   function GetIDsOfNames(const IID: TGUID; Names: Pointer;
     NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
   function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
     Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
 end;

.... Все что нашел... Как найти исходник?

---

← →
clickmaker ©   (2009-11-02 18:16) [6]

> [5] Сергей   (02.11.09 14:26)

там один метод, что-ли - PrintOut?
и никаких свойств и настроек?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2009.12.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.004 c