VPF::Создается два листа. - Форум программистов

Uragan

Дата 28.6.2007, 07:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Здравствуйте!
Почему когда я на основе шаблона хочу создать страницу через ExcelApplication, код:

Код


XLApp.Connect;
XLApp.WorkBooks.Add(xlWBatWorkSheet, 0);
WorkBk := XLApp.WorkBooks.add('C:\Reports.xls',1);
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;

у меня создается две книги одна которая мне нужна, а вторая просто пустая smile

.
Видимо я что-то напутал с параметрами, что не так?
Заранее благодарен!

Albinos_x

Дата 28.6.2007, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата(Uragan @ 28.6.2007, 07:55

)

Видимо я что-то напутал с параметрами, что не так?

совершенно точно... smile

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

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Uragan

Дата 2.7.2007, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 139
Регистрация: 29.10.2005

Репутация: нет
Всего: 0

Спасибо!
А как после заставить распечатать страницу?
Когда я пишу

Код


WorkSheet.PrintOut();

требуется много параметров, а что за параметры я не знаю.
Подскажите пожалуйста!

Rennigth

Дата 2.7.2007, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: нет
Всего: 76

Цитата(Uragan @ 2.7.2007, 01:35

)

требуется много параметров, а что за параметры я не знаю.
Подскажите пожалуйста!

Цитата

PrintOut Method
Prints the active document to a specified printer or file.

expression.PrintOut(From, To, Copies, PrinterName, PrintToFileName, PrintAnnotation, FitMode)

expression    Required. An expression that returns a Document object.

From    Optional Long. The first page to print.

To    Optional Long. The last page to print. Default is -1 (prints all pages).

Copies    Optional Long. The number of copies to print. Default is 1.

PrinterName    Optional String. The name of the optional destination printer.

PrintToFileName    Optional String. The name of the optional destination file.

PrintAnnotation    Optional Boolean. Specifies whether the printout includes user annotations.

--------------------

(* Honesta mors turpi vita potior *)

Данкинг

Дата 2.7.2007, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Цитата(Uragan @ 2.7.2007, 02:35)

Спасибо!
А как после заставить распечатать страницу?
Когда я пишу

Код


WorkSheet.PrintOut();

требуется много параметров, а что за параметры я не знаю.
Подскажите пожалуйста!

Каких параметров?!

Код


word.activedocument.printout;

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

Код


 while Word.BackgroundPrintingStatus <> 0 do begin end;

--------------------

There's nothing left but silent epitaphs.

Albinos_x

Дата 2.7.2007, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата(Uragan @ 2.7.2007, 01:35

)

требуется много параметров, а что за параметры я не знаю.

это я описывал в статье: http://forum.vingrad.ru/topic-84634.html

Цитата

procedure PrintOut(From:OleVariant;To_ :OleVariant; Copies:OleVariant; Preview:OleVariant; ActivePrinter:OleVariant; PrintToFileOleVariant; Collate:OleVariant; PrToFileName:OleVariant; lcid:Integer)

From - номер страницы с которой нужно начинать печать
To_ - номер последней печатаемой страницы, если стоит EmptyParam, то последняя.
Copies - определяет количество копий
Preview - указывает, должно ли открываться окно предпросмотра (false и EmptyParam - не должно)
ActivePrinter - можно указать имя принтера, по умолчанию текущий
PrintToFileOleVariant - указывает, должно ли печататься в файл (false и EmptyParam - не должно)
PrToFileName - указывает имя файла при PrintToFileOleVariant:=true, если при этом условии параметр равен EmptyParam, то пользователя спрашивается имя файла (в Excel97 этот параметр отсутствует)
Collate - указывает, нужно ли разбирать по копиям (false и EmptyParam - не должно)
lcid - обычно задается равным LOCALE_USER_DEFAULT

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

MetalFan

Дата 18.7.2007, 23:41 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 3
Всего: 128

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

--------------------

There are always someone smarter than you...

Lianamir

Дата 23.9.2007, 22:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 8.9.2007

Репутация: нет
Всего: нет

Как создать второй лист в документе?

Код


XLApp:= CreateOleObject('Excel.Application');
XLApp.Visible:=true;
XLApp.Workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';

XLApp.Workbooks[1].Add.Sheets[2].Name:='Отчёт2';// не получается

Albinos_x

Дата 24.9.2007, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Создайте новую тему
http://forum.vingrad.ru/forum/topic-173725...excel-лист.html

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »