Bitmap an den Drucker senden

[Moony]

Ich habe das jetzt folgendermaßen gemacht, aber irgendwie will er nicht wirklich:

Delphi-Quellcode:

  myCanvas  := TCanvas.Create;
  myGraphic := TBitmap.Create;
  myGraphic.LoadFromFile(ExtractFilePath(Application.ExeName) +  '!NewCard.bmp');
  myCanvas.Handle := PrntHandle; // PrntHandle ist das Druckerhandle was ich habe.
  X := GetDeviceCaps(PrntHandle,PHYSICALOFFSETX);
  Y := GetDeviceCaps(PrntHandle,PHYSICALOFFSETY);
  rc := Rect(0 - X, 0 - Y, 1027, 648);

  myCanvas.StretchDraw(rc, myGraphic);