Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Печать текста из Memo! У меня что то не так.... 


DelphiG   (2001-12-18 01:51) [0]

Вот таким годом я пытаюсь вывест текст из MEMO на принтер:
if PrintDialog1.Execute then
Memo.Print("");
Что не так?



False_Delirium   (2001-12-18 02:15) [1]

Var St : TextFile ; I : integer ;
begin
if Print.Execute then
begin
AssignPrn(St) ;
Rewrite(St) ;
Printer.Canvas.Font := Memo1.Font ;
For I := 0 to Memo1.Lines.Count-1 do Writeln(St,Memo1.Lines[1]) ;
CloseFile(St) ;
end ;
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
1-22112           greenrul              2001-12-15 13:55  2002.01.08  
Подскажите компонент Button


4-22477           Art                   2001-10-31 12:17  2002.01.08  
Как увидеть все процессы запущенные всеми прогами?


3-21987           well                  2001-12-06 08:44  2002.01.08  
RxLib


14-22417          Yuraz                 2001-10-25 15:02  2002.01.08  
Интересно, Яндекс на чём крутится(IIS..) БД, железо.


4-22491           NikRus                2001-11-04 18:09  2002.01.08  
Возможен ли перехват нажатия клавиш: Ctrl+Esc, Ctrl+Alt+Del