Печать картинки

[Sirik]

Я печатаю картинку таким кодом:

Код: Выделить всё

    Printer.PaintPicture Picture2.Picture, 0, 0
    Printer.EndDoc

Но мне надо напечатать кусок картинки.
Я делаю так: копирую часть картинки в другою

Код: Выделить всё

    BitBlt Picture2.hDC, 0, 0, 100, 100, Picture1.hDC, 0, 0, SRCCOPY

И также вывожу на печать, но:
1. Если печатать чезе Picture ошибка
2. Если - через Image ничего не видно

Что делать?

[alibek]

А разве нельзя почитать хелп к PaintPicture?
Printer.PaintPicture Picture2.Picture, 0, 0, 100, 100, 50, 50, 200, 200