Udskrift og formatering

<quote>Hej,
jeg er ved at lave et program, hvor jeg vil udskrive indholdet af edit bokse.

Jeg kan ikke finde udaf hvordan man bestemmer placeringen på siden, skrifttype, farve osv.

Med venlig hilsen
Harald</quote>

Du spurte om udskrivning på en Memo og om hvor dan men holder styr på hvor og hvordan det står. Jeg ved ikke præcis hvor dan men her er et lille tip.

du skal bruge en:

Memo, OpenDialog, PrintDialog, SaveDialog, FontDialog + en mase knaper (til udkrivning m.m)

koder:
procedure TPrintMemoForm.AabnMenuClick(Sender: TObject);
begin
if OpenDialog.Execute then
Memo.Lines.LoadFromFile(OpenDialog.FileName);
end;

procedure TPrintMemoForm.GemMenuClick(Sender: TObject);
begin
if SaveDialog.Execute then
Memo.Lines.SaveToFile(SaveDialog.FileName);
end;

procedure TPrintMemoForm.VaelgPrinterMenuClick(Sender: TObject);
begin
PrinterSetupDialog.Execute;
end;

procedure TPrintMemoForm.UdskrivMenuClick(Sender: TObject);
var
PrintFil: TextFile;
I: Integer;
begin
if PrintDialog.Execute then
begin
try
AssignPrn(PrintFil);
ReWrite(PrintFil);
Printer.Canvas.Font := Memo.Font;
for I := 0 to Memo.Lines.Count - 1 do
WriteLn(PrintFil, Memo.Lines[I]);
finally
CloseFile(PrintFil);
end;
end;
end;

procedure TPrintMemoForm.AfslutMenuClick(Sender: TObject);
begin
Close;
end;

procedure TPrintMemoForm.SkrifttypeMenuClick(Sender: TObject);
begin
FontDialog.Font := Memo.Font;
if FontDialog.Execute then
Memo.Font := FontDialog.Font;
end;
end.

håber det i det mindst gir et lille vink.
Med venlig hilsen
Morten Albeck Nielsen