Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
ListBox Print 1
- Thread starter dredfern
- Start date
-
1
- #2
VintageWine
IS-IT--Management
var
Line: Integer;
PrintText: TextFile; {declares a file variable}
begin
AssignPrn(PrintText); {assigns PrintText to the printer}
Rewrite(PrintText); {creates and opens the output file}
Printer.Canvas.Font := Memo1.Font; {assigns Font settings to the canvas}
for Line := 0 to Listbox1.Items.Count - 1 do
Writeln(PrintText, Listbox1.Items[Line]); {writes the contents of the listbox to the printer object}
CloseFile(PrintText); {Closes the printer variable}
end;
Line: Integer;
PrintText: TextFile; {declares a file variable}
begin
AssignPrn(PrintText); {assigns PrintText to the printer}
Rewrite(PrintText); {creates and opens the output file}
Printer.Canvas.Font := Memo1.Font; {assigns Font settings to the canvas}
for Line := 0 to Listbox1.Items.Count - 1 do
Writeln(PrintText, Listbox1.Items[Line]); {writes the contents of the listbox to the printer object}
CloseFile(PrintText); {Closes the printer variable}
end;
- Status
Similar threads
- Locked
- Question