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;