Problem beim Drucken eines Bitmaps

[tommyjunge]

Hallo,

ich drucke in Delphi6 mit folgendem Code ein Bitmap aus:

Code:

with Printer do
      begin
        BeginDoc;
        Canvas.StretchDraw(Rect(0, 0, w, h), FormBitmap);
        EndDoc;
      end;

Ausgabe an einen Laserjet am Parallelport geht prima, aber wenn ich den Adobe PDF als Drucker auswähle, oder auch Fineprint, kommt nur eine weiße Seite an. Andere Programme hingegen drucken anstandslos in diese Senken. Woran kann das liegen?

Gruß, Thomas

[Elias Zurschmiede]

Wie gross ist denn w und h? Hast Du die Angaben auf die Canvas des Druckers umgerechnet?

[tommyjunge]

Habs gefunden. Die alten Delphiroutinen funktionieren mit den neueren Windows Versionen nicht mehr richtig. Man muss die WinAPI Calls zum drucken nutzen, siehe z.B.
http://mc-computing.com/Languages/Delphi/Printing.html#Images

Gruß,
Thomas