Проблема с печатью

[avis]

Доброго времени суток,
Подскажите, пожалуйста, что я делаю не так.
Вот код процедуры, где я пытаюсь просто распечатать картинку, но появляется сообщение, что принтер не печатает:

var
b: TBitmap;
begin
b := TBitmap.Create;
b.Width := form2.Width;
b.Height:=form2.Height;
with Printer.Canvas do
begin
Pen.Color:=clRed;
MoveTo(50,50);
LineTo(100, 50);
end;

Printer:=TPrinter.Create;
Printer.BeginDoc;
Printer.Canvas.CopyRect(Printer.Canvas.ClipRect, b.Canvas, b.Canvas.ClipRect);
Printer.EndDoc;
end;

Заранее благодарен

[Vadim]

avis
Наверное не тот принтер выбрали для печати?

[v-t-l]

Это лишнее

Printer:=TPrinter.Create;

[avis]

убрал строку создания объекта Printer:=TPrinter.Create, но должно го результата это не возымело, все по-прежнему

avis
Наверное не тот принтер выбрали для печати?

приведите, пожалуйста пример выбора принтера

Добавлено спустя 2 часа 8 минут 47 секунд:
Большое спасибо наконец-то оно распечатало!!!

Добавлено спустя 55 секунд:
очень помог вот этот пример http://www.eightminds.com/archives/32