Druckt nicht

**gerritlober**

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**

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

**gerritlober**

Er druckt aber trotzdem nicht,es passiert einfach nichts!

**Markus K.**

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

markieren

Delphi-Quellcode:

			uses

    printers,

und dann müsste es eigentlich gehen.

markieren

Delphi-Quellcode:

			Printer.Canvas.Font := FontDialog.Font;

Printer.BeginDoc;

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

Printer.EndDoc;

Tschüß Markus

Druckt nicht

Druckt nicht

Re: Druckt nicht

Re: Druckt nicht

Re: Druckt nicht

Forumregeln

franktron Registriert seit: 11. Nov 2003 Ort: Oldenburg 1.446 Beiträge Delphi 10.2 Tokyo Enterprise	#2 Re: Druckt nicht 12. Mär 2004, 13:30 Man muss den Printer nicht mit TPrinter.Create erstellen der exsitiert schon. Und Freigeben mit .Free muss man den auch nicht Frank Tux sein Lieblingsquellcode While anzfische<TuxSatt do begin Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
	Zitat

gerritlober Registriert seit: 22. Nov 2003 Ort: Apelern 82 Beiträge	#3 Re: Druckt nicht 12. Mär 2004, 13:35 Er druckt aber trotzdem nicht,es passiert einfach nichts! Grüße Gerrit
	Zitat

Markus K. Registriert seit: 26. Jan 2004 Ort: Halle 346 Beiträge Delphi 2005 Personal	#4 Re: Druckt nicht 12. Mär 2004, 15:43 Hallo gerritlober, du must bei Uses noch printers hinzufügen. markieren Delphi-Quellcode: uses printers, und dann müsste es eigentlich gehen. markieren Delphi-Quellcode: Printer.Canvas.Font := FontDialog.Font; Printer.BeginDoc; Printer.Canvas.TextOut(60,60,'Newsliste aus GLS-AutoNews'); Printer.EndDoc; Tschüß Markus
	Zitat