---

Hej
Hvordan får jeg først StandartTekstNaca4415 på papiret og derefter
Memo1.Lines på samme papir?
Har læst forskellige bøger og forsøgt meget!

procedure TfmProfilValg.Button4Click(Sender: TObject);
var
Line: Integer;
PrintText: TextFile; {declares a file variable}
begin
if PrintDialog1.Execute then
begin
Printer.BeginDoc;

fmProfilValg.StandartTekstNaca4415; //Her forsøger jeg at tilføje en
standarttekst.

with Printer do
try
AssignPrn(PrintText); {assigns PrintText to the printer}
Rewrite(PrintText); {creates and opens the output file}
{writes the contents of the Memo1 to the printer object}
for Line := 0 to Memo1.Lines.Count - 1 do
Writeln(PrintText, Memo1.Lines[Line]);
CloseFile(PrintText); {Closes the printer variable}
finally
Printer.EndDoc; // **
end;
end;
end;

MVH
Monie