|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.04.2010, 11:28 | #1 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 42
|
Print for button
Привет, помощ нужна вот процедурка:
Excel := CreateOleObject('Excel.Application' ); Excel.Visible := false; WBk := Excel.WorkBooks.Open('D:\Diplom otschet v excel\Отчет1'); ...... ........{там строкам и колонкам задаю что надо} ..... Excel.DisplayAlerts := False; Excel.ActiveSheet.printout; Excel.ActiveWorkbook.Close; Excel.Application.Quit; end; Вместо печати он предлагает сохранить Отчет в *.tif, *tiff форматах, наверно он непонимает есть ли принтер. Подскажите что добавить для быстрой печати. И еще вопрос ('D:\Diplom otschet v excel\Отчет1') как сделать чтоб он "Отчет1" открывался без путя к нему. Просто WBk := Excel.WorkBooks.Open('Отчет1') неканает. |
25.04.2010, 11:42 | #2 |
Ищу работу
Форумчанин
Регистрация: 16.02.2007
Сообщений: 269
|
ты просто не успеваешь распечатать и закрываешь книгу.
Код:
а где у тебя храниться "отчет1"? если в папке с программой, или где-то рядом, в фиксированной папке, то можно задать относительный путь если в папке с программой, то можно так: Код:
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
|
25.04.2010, 11:50 | #3 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 42
|
Благодарствую, буду пробовать
|
25.04.2010, 11:54 | #4 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 42
|
Неа, не так. Подскажи еще чтонибудь, я на счет печати.
|
25.04.2010, 13:36 | #5 |
Ищу работу
Форумчанин
Регистрация: 16.02.2007
Сообщений: 269
|
Код:
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
|
25.04.2010, 14:15 | #6 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 42
|
Извини что надоедаю(самому надоело) всеравно вылазяет табличка (мол куда сохранить в *.tif, *tiff форматах. Требую наверно слишком но незнаеш что нужно сделать чтобы выбрать принтер на котором будет печататься. Я так понимаю у меня проблема с дровами(но т.к. я делаю программу не для себя такого косяка нельзя исключать и у того кто будет пользоваться).
|
25.04.2010, 15:06 | #7 |
Ищу работу
Форумчанин
Регистрация: 16.02.2007
Сообщений: 269
|
Код:
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
|
25.04.2010, 15:23 | #8 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 42
|
Каюсь, выручил конкретно, вот только куда всунуть
ShowPrintDialog:=true; try ShowPrintDialog:=Excel.Dialogs.Item[8].Show; except ShowPrintDialog:=false; end; End; |
25.04.2010, 15:31 | #9 |
Ищу работу
Форумчанин
Регистрация: 16.02.2007
Сообщений: 269
|
в смысле куда? просто в код. функция обычная. если не нужно обрабатывать выдался ли диалог или нет, то можно так:
Код:
Пишу на Delphi все что угодно, недорого, красиво, с комментариями
###icq 107335###
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
webbrowser + print | wiskas | Компоненты Delphi | 1 | 29.04.2010 15:53 |
Print Screen на КПК? | Snoopy | Свободное общение | 6 | 08.04.2010 14:35 |
Print Screen | Maxs | Общие вопросы C/C++ | 5 | 12.04.2009 13:57 |
Print v VBA | NathaliE | Microsoft Office Excel | 2 | 02.08.2008 15:05 |
ZhekON | Общие вопросы Delphi | 8 | 11.08.2007 11:45 |