Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как работасть с принтером? [D6, Win95/98, Win2k]


НВ ©   (2003-11-26 14:25:00) 

Задача такая
Вывод просто текста из мемо на сетевой матричный Epson.
пытался сделать так:


procedure
var TF : TextFile;
i : integer;
begin
assignprn(TF);
rewrite(TF);
for i:=0 to Memo.Lines.Count -1 do
writeln(TF,Memo.Lines.Strings[i]);
end;


во первых
печать начинаестся только после того как я закрою приложение
ВОПРОС1: как печатать не выходя из программы?

во вторых
печать идет,как я понял, на дефолтовый принтер
ВОПРОС2: как изменить принтер?

в третьих
Все настройки встроеных шрифтов, которые выставляються пимпочками на принтере, улетают и печатаеться все каким-то виндовским шрифтом
ВОПРОС3: Как печатать встроеными шрифтами?

Ну а вообще мне нужно печатать ТХТ быстро и так как он смотрится в ДОСе, т.е. сохранять постоянную ширину символов. И если у вас, уважаемые мастера, есть другое решение для быстрой и красивой печати простого текста, то прошу поделиться


hooky-mars   (2003-12-02 19:24:00) [1]

Printer.Fonts.Text:="Courier";
Таким макарием устанавливается шрифт? Еслитак то помогло не намтого, лишь границы стали по красивше


Геннадий   (2003-11-28 00:10:00) [2]

Используй переменную Printer (uses Printer). Так ты и принтер выберешь, и шрифт задашь и печать начнётся когда ты дашь команду...


panov   (2003-11-26 15:15:00) [3]

1. System.CloseFile(TextFile) после печати.
2. Printer.PrinterIndex
3. Использовать ESC-последовательности для управления выводом н печать для онкретного принтера.


Наверх

Титульная страница Поиск, карта сайта Написать письмо