/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Få først StandartTekstNaca4415 på papiret?
Fra : Monie Jacobsen


Dato : 28-08-02 00:43

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



 
 
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste