Tags:
delphi
Hvordan Udskriver jeg en listbox's indhold?
Jeg har prøvet printdialog, men kan ikke lige finde ud af det.
Mvh
Anders
2 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
uses Printers;
procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg('Error Printing text.', mtError, [mbOk], 0);
end;
end;
Indsæt derefter dette i en button, hvis du vil printe indholdet af en Listobx: PrintStrings(Listbox1.Items);
Eller hvis du vil printe indholdet af et Memo indsætter du bare dette: PrintStrings(Memo1.Lines);
[Redigeret d. 16/09-04 08:58:22 af Benni]
0
Tak for dit svar, men jeg ville meget gerne bruge printdialog.
Mvh
Anders
[Redigeret d. 17/09-04 07:18:52 af Anders Nielsen]
[Redigeret d. 17/09-04 07:19:47 af Anders Nielsen]