/
Forside
/
Teknologi
/
Udvikling
/
Delphi/Pascal
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
Delphi/Pascal
#
Navn
Point
1
oldwiking
603
2
jrossing
525
3
rpje
520
4
EXTERMINA..
500
5
gandalf
460
6
gubi
270
7
DJ_Puden
250
8
PARKENSS
230
9
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
Alle emner
Teknologi
Udvikling
Delphi/Pascal
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177496
Tips :
31968
Nyheder :
719565
Indlæg :
6408490
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.