Print fra tekst i memo?

Prøv at kigge på TPrinter classen

/Martin

Jeg tror at det er koden som der er noget i vejen med! ikke classen!

printer.begindoc;
printer.canvas.textuot();
printer.enddoc;

/Martin

husk at tilføje Printers under din USES

procedure TForm1.Udskriv1Click(Sender: TObject);
var
Line:Integer;
PrintText:System.Text;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
ReWrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Line :=0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines[Line]);
System.Close(PrintText);
end;

[Error] Unit1.pas(80): Undeclared identifier: 'Printer'
[Error] Unit1.pas(82): Undeclared identifier: 'BeginDoc'
[Error] Unit1.pas(87): Undeclared identifier: 'PageHeight'
[Error] Unit1.pas(87): Undeclared identifier: 'newpage'
[Error] Unit1.pas(93): Not enough actual parameters

De fejl får jeg :S