Bitmap drucken erzeugt nur ein weißes Blatt

[tofse]

Hallo,

ich versuche, ein Bitmap zu drucken. Im PDFCreator klappt das, aber sobald ich einen anderen Drucker auswähle, kommt nur ein weißes Blatt raus:(
Im Forum habe ich diese Lösung gefunden:

Code:

procedure PrintBitmap(aCanvas: TCanvas; Dest: TRect; Bitmap: TBitmap);
var Info: PBitmapInfo;
    InfoSize: DWord;
    Image: Pointer;
    ImageSize: DWord;
begin
  with Bitmap do
  begin
    GetDIBSizes(Handle, InfoSize, ImageSize);
    Info := AllocMem(InfoSize);
    try
      Image := AllocMem(ImageSize);
      try
        GetDIB(Handle, Palette, Info^, Image^);
        if not Monochrome then
          SetStretchBltMode(ACanvas.Handle, STRETCH_DELETESCANS);
        with Info^.bmiHeader do
          StretchDIBits(aCanvas.Handle, Dest.Left, Dest.Top,
            Dest.RIght - Dest.Left, Dest.Bottom - Dest.Top,
            0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS, SRCCOPY);
      finally
        FreeMem(Image, ImageSize);
      end;
    finally
      FreeMem(Info, InfoSize);
    end;
  end;
end;

Damit funktioniert es, aber ich würde gerne verstehen, wo das Problem liegt. Bei uns im Haus gibt es doch viele verschiedene Druckermodelle, und da möchte ich mich schon auf eine Lösung verlassen können, ohne jeden Drucker auszutesten...

Gruss
Christof

[SirThornberry]

Funktioniert der Quelltext generell oder ist das der Quelltext der nicht immer funktioniert?

Ich vermute mal das ist der Quelltext der immer funktioniert. Dir jetzt zusagen warum mit deinem anderen Quelltext das ganze nicht immer funktioniert fällt natürlich schwer wenn man den Quelltext nicht kennt. Ich vermutet du verwendest StretchBlt oder BitBlt in deinem anderen Quelltext anstelle von Stretchdibits

[tofse]

Achso :-D
der obige Code funktioniert.
Mein Versuch ist mit Printer.Canvas.StretchDraw(); gescheitert (aus bei einem PDF Drucker)

[SirThornberry]

Dann sollte meine Begründung stimmen. Es liegt am Stretchdraw.

[tofse]

Zitat:

Zitat von SirThornberry (Beitrag 1164708)

Es liegt am Stretchdraw.

Und warum ?
Mit Draw hat es auch nicht funktioniert, und das habe ich aus diesem Tipp: Bild drucken

[SirThornberry]

Weil das zeichnen von StretchBlt und BitBlt (was intern verwendet wird) nicht für Drucker geeignet ist. Deswegen verwendet man StretchDIBits