Как работасть с принтером?

← →
НВ (2003-11-26 14:25) [0]

Задача такая
Вывод просто текста из мемо на сетевой матричный 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: Как печатать встроеными шрифтами?

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

← →
panov © (2003-11-26 15:15) [1]

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

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

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

← →
hooky-mars (2003-12-02 19:24) [3]

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

Как работасть с принтером? Найти похожие ветки