Print (nemme point)

Hej prøv dette:


Uses
Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
  line:integer;
  printtext:textfile;
begin
    if print.execute then
    begin
        assignprn(printtext);    //AssignFile (printtext,\'LPT1\');
        rewrite(printtext);
        printer.canvas.font:= memo1.font;
        for Line:= 0 to memo1.lines.count - 1 do writeln(printtext, memo1.lines[line]);
        closefile(printtext);
    end;
end;

virker ikke

Husk at tilføje printers i uses


procedure TForm1.PrintIt(Sender: TObject);
var
  PrintBuf: TextFile;
begin
  AssignPrn(PrintBuf);
  Rewrite(PrintBuf);
  try
    for i := 0 to Memo1.Lines.Count-1 do
      WriteLn(PrintBuf, Memo1.Lines[i]);
  finally
    CloseFile(PrintBuf);
  end;
end;


Stoney

Har du added en print dialog kaldet: print ??

til stoney
der kommer en fejl i
WriteLn(PrintBuf, Memo1.Lines[i]);
(prøver at lave et nyt spm)

Jeg havde glemt

var
i : integer;

Stoney

Jeg har ikke lige delphi ved hånden og derfor er det ikke sikkert at syntaksen holder og jeg kan heller ikke huske hvordan eller objecterne er opbygget.
Men jeg for søger med lidt dansk/delphi kode:

  printer.begindoc;
  x:=0;
  for i:=1 to memo.lines.count-1 do
  begin
    x:=x+memo.lines.height; //sådan ca
    printer.canvas.textxy(x,30,memo.lines[i])
  end
  printer.enddoc;

Dette mener jeg vil virke når du lige får skrevet det om til noget som kompileren kan forstå. Det jeg mener er at algoritmen er rigtig men at denne kode sikkert er fyldt med fejl.
Håber du kan bruge det.