printer is not currently printing

Claus · Hält's aus hier Beiträge: 7

Hallo,
ich bin blutiger Anfänger in der Programmierung und habe mir ein kleines Programm gestrickt.
Es besteht aus einem Berechnungsteil und einer Druckausgabe mit Grafik.
Wenn ich nun das Programm aufrufe und Drucken will kommt immer die Meldung "printer is not currently printing"
Die Ausgabe wird aber vollständig erstellt. Kann mir einer helfen und mir sagen, was diese Ausgabe bedeutet und wie ich sie vermeiden kann.
Vielen Dank.
Claus

wdbee · Beiträge: 628 Erhaltene Danke: 1

Wie sieht denn dein Druck-Teil aus? Verwendest du BeginnDoc und EndDoc für den Printer.Canvas?

Claus · Hält's aus hier Beiträge: 7

ja.

markieren

Delphi-Quelltext

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

printer.beginDoc ;
...
with Ausgabe do begin
....
end;

Hintergrund := ClWhite;
Ausgabe.Pen.Width := 3;
zeichne(Ausgabe,600,600,1200,1000);

printer.Enddoc ;

Komisch. Wenn ich dem TPrintDialog-Objekt eine OnClose-Event gebe, dann kommt die Meldung nicht mehr.
Das kann es aber doch nicht sein???

Moderiert von raziel: Delphi-Tags hinzugefügt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme