Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Печать страницы Excel не показывая самого Excel ?

DmiSb © (2005-01-14 07:46:00)
Программно заполняется табличка в Excele. При этом сам Excel не показывается пользователю. Как в этом случае программно отправить заполненную страницу на печать ?
Заранее спасибо.

DmiSb (2005-01-17 06:27:00) [1]
Зы-ы. Действительно ;)
Спасибо.

YurikGL (2005-01-15 20:14:00) [2]

> DmiSb (15.01.05 19:23) [8]

дык ты в другом пустом приложении кинь на форму ExcelWorksheet1 и посмотри его свойства...

DmiSb (2005-01-15 19:23:00) [3]
Небольшое пояснение: я тут KOL осваивать начал, потому есть некоторые отличия от "кидаешь на форму ExcelWorksheet1". Там этого нет - но зато приложение малюсенькое.

YurikGL (2005-01-14 21:26:00) [4]

> DmiSb (14.01.05 21:13) [6]

Попробуй
PrintOut(EmptyParam,EmptyParam,количество копий);

А вообще, кидаешь на форму ExcelWorksheet1 нажимаешь ктрл+пробел и смотришь

DmiSb (2005-01-14 21:13:00) [5]
Прошу простить за дремучесть. Раньше это не нужно было, а теперь вот понадобилось.

Код макроса я смотрел.
Вот печать одной страницы

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Но как это первести для Delphi, что-то не соображу. Куда эту Copies:=1 прилепить ?

Cobalt (2005-01-14 16:38:00) [6]
Запускаешь запись макроса.
производишь требуемые действия.
Останавливаешь запись макроса.
Смотришь его код.

DmiSb (2005-01-14 13:34:00) [7]
2 asafr

Да PrintOut заработал, но оказывается надо выделить диапазон и его печатать, типа:

Sheet.Range['A1:K23'].Select;
exl.Selection.PrintOut;

Интересно, а где можно подсмотреть еще, как задать при этом параметры вывода на печать. Типа кол-ва копий.

Спасибо за помошь.

asafr (2005-01-14 12:35:00) [8]
PrintOut

DmiSb (2005-01-14 12:25:00) [9]
Процедура такая

exl := CreateOleObject('Excel.Application');
exl.DisplayAlerts := false;
WorkBook := exl.Application.WorkBooks.Add(filename);
Sheet := WorkBook.WorkSheets[1];

При попытке exl.Print; выходит ошибка,
что такой метод не поддерживается.

Qwe (2005-01-14 11:45:00) [10]
print

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »