Drucken geht nicht

[PAX]

Grüßt euch!

Ich möchte gerne eine Grafik, innerhalb eines TImages befindlich, ausdrucken. Diese Grafik wurde nicht extern aus einer Datei geladen, sondern mit Canvas im Programm direkt gezeichnet. Die zu druckende Grafik muss natürlich auf die Druckerauflösung zurechtgezerrt werden. Ich habe es mir auch anzeigen lassen, die Grafik wird tatsächlich vergrößert.
Ich kann mir leider nicht erklären, warum dann aber garnichts ausgedruckt wird?
Hier ganz kurz die relevanten Codezeilen:

Code:

...
druck = Printer();
...
druck->BeginDoc();
...
StretchBlt(druck->Canvas->Handle, 0, 0, k.Width(), k.Height(),
Form1->Image1->Canvas->Handle, 0, 0, Form1->Image1->Width, Form1->Image1->Height, SRCCOPY);

druck->EndDoc();

Wie gesagt, die Grafikzerrung habe ich mir angeschaut, sie ist korrekt!
Ich bin mal gespannt, wo der Fehler ist.

PS: Ich drucke mit Adobe PDFwriter, ist aber prinzipiell funktionstüchtig.