Allgemeine Frage zum Drucken mit TPrinter

Bjoern128 · Beiträge: 17

Hi !

Ich möchte gerne mit Delphi Grafiken ausdrucken.
Diese sollen
1. egal mti welchem Drucker und mit welcher Auflösung gedruckt wird immer gleich groß sein
2. Sind die Grafiken Größer als eine DIN A4 Seite.
Delphi soll diese automatisch teilen und einzeln drucken, so dass ich die Blätter nachher aneinanderlegen kann.

Hat jemand da eine gute Idee oder vielleicht sogar eine Anleitung??

Grüße
Björn

madigeMade · Beiträge: 24

HI Bjoern128!

Zum Drucken von Bildern kannst du z.B. diesen Quellcode nehmen.

markieren

Quelltext

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

procedure TForm1.FormCreate(Sender: TObject);
var bitmap :TBitmap;
begin
  BitMap := TBitMap.Create;
  with printer do
    begin 
      begindoc;
      bitmap.loadfromfile('C:\Windows\kacheln.bmp');
      image1.canvas.Draw(0,0,bitmap);
      enddoc;
    end;
end;

Ist nicht getestet, müsste aber funktionieren. Und Delphi holt sich selbst den Standartdrucker und nutzt diesen. Vergiss in der Uses List nicht Printers einzufügen.

Mfg de Made

_________________
Ich kam, sah und schrieb ein Prog.

Eisenherz · Beiträge: 48

madigeMade hat folgendes geschrieben:

Ist nicht getestet

Würde ich auch sagen. Selbst wenn Du das Bild nicht auf Image1 sondern tatsächlich auf dem Drucker ausgeben würdest, wäre es eine schlechte Methode zum Drucken von Bildern, da einige Drucker das nicht mögen. Dazu gibt es aber schon mehrere Threads.

Hier gibt es ein Tutorial zum Drucken, das auch das Ausdrucken über mehrere Seiten behandelt.

_________________
aloa Eisenherz

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme