VPF::Печать - Форум программистов

Georg4

Дата 11.2.2003, 05:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 961
Регистрация: 2.11.2002

Репутация: 0
Всего: 10

Кто-нибудь знает как распечатать в Делфях файл не открывая его в какой-нибудь меме.

--------------------

Никто и никогда не должен решать одну проблему дважды

Vit

Дата 11.2.2003, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

запустить команду ДОС:

Код

copy FileName.txt prn

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

dser

Дата 11.2.2003, 07:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 3.2.2003
Где: Украина Харьковск ая обл.

Репутация: нет
Всего: нет

Я не пробовал, попробуй и сообщи, получилось ли что. А если что не так, возможно исправишь и оставишь правильный код здесь.

procedure TForm1.Button1Click(Sender: TObject);
var
To_Prn : TextFile;
begin
AssignPrn(To_Prn);
Rewrite(To_Prn);
Writeln(To_Prn, 'Printer in Text Mode');
CloseFile(To_Prn);
end;

Guest_Song

Дата 12.2.2003, 06:39 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну вы даёте.. :-)
Да просто ShellExecute()

78125

Дата 12.2.2003, 18:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 198
Регистрация: 20.1.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет

Код


uses printers;


...
var filetxt, printtxt: textfile;
      tempstr: string;
begin
assignfile(filetxt, opendlg.filename);
assignprn(printtxt);
reset(filetxt);
rewrite(printtxt);
while not eof(filetxt) do
 begin
  readln(filetxt,tempstr);
  writeln(printtxt,tempstr);
 end;
closefile(filetxt);
closefile(printtxt);
end;

И никакого волшебства!

--------------------

купим подпись

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »