Delphi-PRAXiS - Delphi Druckt nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Druckt nicht (https://www.delphipraxis.net/17986-druckt-nicht.html)

gerritlober

12. Mär 2004 14:10

Druckt nicht

Hallo,

kann mir jemand sagen, warum diese Procedure
nur durchläuft, aber nicht druckt?

Delphi-Quellcode:

			procedure TMainWindow.Newslistdrucken1Click(Sender: TObject);

var Printer: TPrinter;

    i: integer;

    zeile: integer;

begin

  Printer := TPrinter.Create;

  Printer.Canvas.Font := FontDialog.Font;

  Printer.BeginDoc;

  Printer.Canvas.TextOut(60,60,'Newsliste aus GLS-AutoNews');

  Printer.EndDoc;

  Printer.Free;

end;

franktron

12. Mär 2004 14:30

Re: Druckt nicht

Man muss den Printer nicht mit TPrinter.Create erstellen der exsitiert schon.
Und Freigeben mit .Free muss man den auch nicht :-D

gerritlober

12. Mär 2004 14:35

Re: Druckt nicht

Er druckt aber trotzdem nicht,es passiert einfach nichts!

Markus K.

12. Mär 2004 16:43

Re: Druckt nicht

Hallo gerritlober,
du must bei Uses noch printers hinzufügen.

Delphi-Quellcode:

			uses

    printers,

und dann müsste es eigentlich gehen.

Delphi-Quellcode:

			Printer.Canvas.Font := FontDialog.Font;

Printer.BeginDoc;

Printer.Canvas.TextOut(60,60,'Newsliste aus GLS-AutoNews');

Printer.EndDoc;

Tschüß Markus

Alle Zeitangaben in WEZ +1. Es ist jetzt 01:25 Uhr.