Reply to Drucken eines Images on Tue, 22 Nov 2005 23:20:38 GMT

Lumpus der Noob — Tue, 22 Nov 2005 23:20:38 GMT

Hallo,

wie kann ich ein TImage ausdrucken?

Vielen Dank
Lumpus

Reply to Drucken eines Images on Wed, 23 Nov 2005 01:23:23 GMT

VergissEs — Wed, 23 Nov 2005 01:23:23 GMT

#include

//Anfangen zum drucken
	Printer()->BeginDoc();

	Printer()->Canvas->Draw(50, 50, Image1->Picture->Bitmap);

	//oder Skaliert
	TRect PrintRect(0, 0, Printer()->PageWidth, Printer()->PageHeight);
	Printer()->Canvas->StretchDraw(PrintRect, Image1->Picture->Bitmap);

	//Drucken beenden
	Printer()->EndDoc();