Bitmap drucken

[Alfred Gemsa]

Hallo,

ich habe eine Bitmap, die ich mit folgendem drucke:

procedure TForm1.BtnPrintClick(Sender: TObject);

var R: TRect;

begin

Printer.BeginDoc;

R := Bounds(0, 0, Printer.PageWidth, Printer.PageHeight);

Printer.Canvas.StretchDraw(R, BM);

Printer.EndDoc;

end;


Das klappt auch, allerdings nur einmal, beim zweiten BtnClick erscheint
nur eine leere Seite.

Hingegen:

procedure TForm1.BtnPrintClick(Sender: TObject);

var R: TRect;

begin

Printer.BeginDoc;

Printer.NewPage;
R := Bounds(0, 0, Printer.PageWidth, Printer.PageHeight);

Printer.Canvas.StretchDraw(R, BM);

Printer.EndDoc;

end;


druckt die Bitmap auch beim wiederholten Click, allerdings wie zu
erwarten, nach einer ersten leeren Seite.

Weiß jemand Rat?

Alfred.

[Alfred Gemsa]

Sorry für die Leerzeilen.

Die Bitmap heißt übrigens BM und wird auf dem Bildschirm richtig
dargestellt.

Alfred