не печатает изображение

[Djony_91]

Нужно из компонента 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 находится, это может быть причиной?

[Terran]

Нужно из компонента image распечатать изображение.

Можете печатать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
printer.BeginDoc;
printer.Canvas.Draw(100,100,image1.Picture.Graphic);
printer.EndDoc;
End;

После печати лист почему-то пустой и картинки на нем нет. Что это может быть?

На канвас принтера не передаётся изображение.

Да, у меня кстати имэйдж в scrollboxe находится, это может быть причиной?

Это не имеет значения.

[Djony_91]

Спасибо! Завтра на работе попробую, а то дома принтера нет

[Djony_91]

А как в данной ситуации узнать о наличии принтера, чтобы ошибок не было, никто не подскажет?

[Terran]

А как в данной ситуации узнать о наличии принтера, чтобы ошибок не было, никто не подскажет?

Подскажем
Количество установленных принтеров.

Uses
   Printers;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=IntToStr(Printer.Printers.Count);
End;

[Djony_91]

Огромное спасибо!)

[Djony_91]

Поставил проверку:
if printer.printers.count>0 then печатается изображение.
Ошибка вылезает все равно, хотя принтер к ноуту у меня не подключен.
Решил count вывести в caption. Там оказалось число 12(!!!).
Проверил на другом компе, где нет принтера - там это число равно 3.
На работе, где есть принтер, число равно 2)
И не понятна мне закономерность, по которой получается это число))

[Terran]

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

Код проверяет все установленные в системе принтеры. Даже при установке Word'a если не ошибаюсь устанавливаются виртуально пару принтеров и поэтому они считаются тоже как принтеры. Отсюда такие числа.

[Djony_91]

Дело в том, что перед тем как выводить на печать изображение, мне нужно убедиться в том, что принтер существует как аппаратное устройство, а не что-то виртуальное. Что изображение реально может быть распечатано)
Вот нужно такую проверочку сделать)