Попробуй GetDeviceCaps(Printer.Handle, RASTERCAPS) и StretchBlt

А ещё не надо забывать пересчитывать координаты для принтера в логические пиксели. Оно может и рисуется, но в невидимой области страницы.

Кроме того, возможно для графики придётся делать SetMapMode(Printer.Handle, MM_TEXT)