Bild von TImage drucken

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

Hi, kann mir mal jemand sagen, wie man ein erstelltes Bild(in TImage) ausdruckt(Einstellung im Drucker-Eigenschaften)?
Hab mich damit noch nicht auseinandergesetzt, brauche deshalb ein bisschen Hilfe.

Mfg PhilGo

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

tmc2004 · Beiträge: 140 zuviele D7,D8

probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm15.BitBtn5Click(Sender: TObject);

begin
RvSystem1.Execute;
end;

ist unter ereigisse von rvsystem unter punkt rave

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm15.RvSystem1Print(Sender: TObject);

begin

  with Sender as TBaseReport do
    begin

       // Bitmap ausgeben ----------------------start----------------------------
      PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
   end;
end;

gruß

tmc :dance:

_________________
it's not a bug it's a feature

tmc2004 · Beiträge: 140 zuviele D7,D8

probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm15.BitBtn5Click(Sender: TObject);

begin
RvSystem1.Execute;
end;

ist unter ereigisse von rvsystem unter punkt rave

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm15.RvSystem1Print(Sender: TObject);

begin

  with Sender as TBaseReport do
    begin

       // Bitmap ausgeben ----------------------start----------------------------
      PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
   end;
end;

gruß

tmc :dance:

_________________
it's not a bug it's a feature

tmc2004 · Beiträge: 140 zuviele D7,D8

probiere es mal mit rave oder besser rave codebasierend rvsystem unter punkt rave hier ein kleiner Ansatz.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm15.BitBtn5Click(Sender: TObject);

begin
RvSystem1.Execute;
end;

ist unter ereigisse von rvsystem unter punkt rave

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm15.RvSystem1Print(Sender: TObject);

begin

  with Sender as TBaseReport do
    begin

       // Bitmap ausgeben ----------------------start----------------------------
      PrintBitmaprect(5,0,7.8,1.7,Image1.Picture.Bitmap);
   end;
end;

gruß

tmc :dance:

_________________
it's not a bug it's a feature

tmc2004 · Beiträge: 140 zuviele D7,D8

Sorry das das 3 mal drin ist liegt daran das anscheinend das Forum immer um 0:20 Uhr down ist hab ein paar mal zu oft geklickt.

gruß

tmc

_________________
it's not a bug it's a feature

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

Kein Problem! :wink:

Ich will aber ein Jpeg-Bild von TImage drucken. (Weil du

Zitat:

// Bitmap ausgeben ...

geschrieben hast.)

Mfg PhilGo

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

Hi,
da bin ich nochmal.
Das in Rave, hab ich noch net probiert, aber müsste die Aufgabe nicht mit TPrinter zu lösen sein? Wenn ja kannst du mir mal das geben? :roll:

Danke PhilGo

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

derDoc · Beiträge: 623 Win Vista Prof D2007 Prof

Du kannst ganz einfach folgendes machen:

markieren

Delphi-Quelltext

1:
2:
3:

Printer.BeginDoc;
Printer.Canvas.CopyRect(Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height), Img_Wurf.Canvas, Rect(0, 0, Img_Wurf.Width, Img_Wurf.Height));
Printer.EndDoc;

und noch Printers der uses-Klausel anfügen.

_________________
MfG derDoc
There are only 10 types of people: those who understand binary and those who don't.

PhilGo · Beiträge: 315 Win 98, Win Longhorn ;-)

@derDoc: Ich hab das probiert, aber das klappt net. Er erstellt zwar ein Druckerauftrag, aber der druckt überhaupt nichts. :roll:

Hast du eine Ahnung warum das so ist?

Mfg PhilGo

_________________
Sie werden dich finden und töten... Söhne der großen Bärin!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme