Вывод на печать выделенного текста

[vmilyoshin]

Нужна помощь. Пролазил весь инет и не как не могу разобраться как вывести на печать используя PrintDialog выделенный текст из Memo. Весь текст печатается на ура.

Вот код:

В uses добавить printers

procedure TForm1.N9Click(Sender: TObject); //Печать
{var //Способ первый
  f:System.TextFile;
  i:integer;
begin
if PrintDialog1.Execute then
begin
  AssignPrn(f);
try
  Rewrite(f);
for i:=0 to Memo1.Lines.Count-1 do
  Writeln(f, Memo1.Lines[i]);
finally
  CloseFile(f);
end;
end;
end;}

var //Способ второй
  y,dy,x,k: integer; 
  s: string; 
begin 
if PrintDialog1.Execute then
begin
if memo1.lines.count=0 then exit; 
  screen.cursor := crhourglass; 
with printer do 
begin 
  begindoc; 
with canvas do 
begin 
  font := memo1.font; 
  dy := textheight('1'); // Определяем высоту строки 
  y := 3*dy; // Отступ от верхнего края листа 
  x := pagewidth div 15; // Отступ от левого края 
for k := 0 to memo1.lines.count-1 do 
begin 
// Выводим очередную строку 
  textout(x,y,memo1.lines[k]); 
// Смещаемся на следующую строку листа 
  inc(y,dy); 
if pageheight-y<2*dy then // Нижний край листа? 
begin // Да 
  newpage; // Переход на новый лист 
// Выводим номер страницы посередине листа: 
  s := '- '+inttostr(pagenumber)+' -'; 
  textout((pagewidth-textwidth(s)) div 2, dy, s); 
// и отчеркиваем его от текста: 
  moveto(x, 3*dy div 2); 
  lineto(pagewidth-x, 9*dy div 4); 
// Ордината первой строки: 
  y := 3*dy 
end; // if pageheight-y<2*dy 
end; // for k := 0 to memo1.lines.count-1 do 
end; // with canvas do 
  enddoc; 
end; // with printer do 
  screen.cursor := crdefault; 
end;
end;

[evg_m]

копируем выделенный текст в TstringList

lst:=TstringList.create;
lst.text:=memo.selecttext;

выводим любым из двух методов

for j:=0 to lstcount-1 do begin

  lst.strings[j];

end;

чистим память

lst.free;

[vmilyoshin]

Сообщение от evg_m

копируем выделенный текст в TstringList

lst:=TstringList.create;
lst.text:=memo.selecttext;

выводим любым из двух методов

for j:=0 to lstcount-1 do begin

  lst.strings[j];

end;

чистим память

lst.free;

на selecttext выскакивает ошибка. Если можно выложите рабочий пример.

[evg_m]

memo.<нажимаем ctrl +space> наслаждаемся списком доступных свойств и методов.
memo.sel<нажимаем ctrl +space> наслаждаемся списком доступных свойств и методов начинающихся на sel

выбираем свойство <нажимаем F1> читаем зачем нужно это свойство или что делает данный метод.
смотрим ссылки delphi Example и See Also .

[vmilyoshin]

Сообщение от evg_m

memo.<нажимаем ctrl +space> наслаждаемся списком доступных свойств и методов.
memo.sel<нажимаем ctrl +space> наслаждаемся списком доступных свойств и методов начинающихся на sel

выбираем свойство <нажимаем F1> читаем зачем нужно это свойство или что делает данный метод.
смотрим ссылки delphi Example и See Also .

Спасибо за совет. Всё получилось. Но только когда печатаешь выделенный текст переход на новую строку начинается не с целого слова а куском от предыдущей строки. Как бы ещё этот дефект исправить.

procedure TForm1.N9Click(Sender: TObject); //Печать
var
  i: integer;
  f:System.TextFile;
  lst: TStringList;
begin
  lst:= TStringList.Create;
  lst.Text:= Memo1.SelText;
if lst.Text <> ''  then
  PrintDialog1.Options:= [poSelection];
  PrintDialog1.PrintRange:=prAllPages;
if PrintDialog1.Execute then
if PrintDialog1.PrintRange = prAllPages then
begin
//Printer.Canvas.Font := Memo1.Font;
  AssignPrn(f);
try
  Rewrite(f);
for i:=0 to Memo1.Lines.Count-1 do
  Writeln(f, Memo1.Lines[i]);
finally
  CloseFile(f);
end;
end
else
if PrintDialog1.PrintRange = prSelection then
begin
 //Printer.Canvas.Font := Memo1.Font;
  AssignPrn(f);
try
  Rewrite(f);
for i:=0 to lst.Count-1 do
  Writeln(f, lst.Strings[i]);
finally
  CloseFile(f);
  lst.Free;
end;
end;
  PrintDialog1.Options:= [];
end;

[evg_m]

if memo.text[memo.selstart-1]<>#13 then memo.selstart+1;