|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.05.2010, 18:09 | #1 |
Регистрация: 27.04.2010
Сообщений: 7
|
не печатает изображение
Нужно из компонента image распечатать изображение.
Подключаю uses printers Код: procedure TForm3.BitBtn14Click(Sender: TObject); begin with form3.Image1.Picture.Bitmap do printer.BeginDoc; printer.Canvas.CopyRect(rect(0,0,he ight,width),canvas,rect(0,0,height, width)); printer.EndDoc; end; После печати лист почему-то пустой и картинки на нем нет. Что это может быть? Да, у меня кстати имэйдж в scrollboxe находится, это может быть причиной? Последний раз редактировалось Djony_91; 17.05.2010 в 18:21. |
18.05.2010, 00:43 | #2 | |||
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Цитата:
Код:
Цитата:
Цитата:
Всегда рад помочь!
|
|||
19.05.2010, 03:28 | #3 |
Регистрация: 27.04.2010
Сообщений: 7
|
Спасибо! Завтра на работе попробую, а то дома принтера нет
|
21.05.2010, 02:38 | #4 |
Регистрация: 27.04.2010
Сообщений: 7
|
А как в данной ситуации узнать о наличии принтера, чтобы ошибок не было, никто не подскажет?
|
21.05.2010, 16:55 | #5 | |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Цитата:
Количество установленных принтеров. Код:
Всегда рад помочь!
|
|
24.05.2010, 18:30 | #6 |
Регистрация: 27.04.2010
Сообщений: 7
|
Огромное спасибо!)
|
25.05.2010, 14:53 | #7 |
Регистрация: 27.04.2010
Сообщений: 7
|
Поставил проверку:
if printer.printers.count>0 then печатается изображение. Ошибка вылезает все равно, хотя принтер к ноуту у меня не подключен. Решил count вывести в caption. Там оказалось число 12(!!!). Проверил на другом компе, где нет принтера - там это число равно 3. На работе, где есть принтер, число равно 2) И не понятна мне закономерность, по которой получается это число)) |
26.05.2010, 01:07 | #8 | |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Цитата:
Всегда рад помочь!
|
|
26.05.2010, 04:17 | #9 |
Регистрация: 27.04.2010
Сообщений: 7
|
Дело в том, что перед тем как выводить на печать изображение, мне нужно убедиться в том, что принтер существует как аппаратное устройство, а не что-то виртуальное. Что изображение реально может быть распечатано)
Вот нужно такую проверочку сделать) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Неверно печатает в word | Mixasik | Microsoft Office Word | 5 | 06.02.2010 21:59 |
принтер не печатает рамки и чертежи компаса | lord1228 | Microsoft Office Word | 9 | 09.12.2009 18:38 |
принтер криво печатает текст | SKS | Компьютерное железо | 2 | 23.04.2009 16:54 |
не печатает принтер!!!! | ronich | Операционные системы общие вопросы | 5 | 22.11.2007 08:52 |