Возможности Delphi - Помощь студентам - Страница 2

Вавел из ГМТУ · 06.10.2009, 19:49

Чтобы вывести фаил на принтер можно заюзать ShellExecute(..)

Stilet · 07.10.2009, 09:01

Да. его второй параметр может принимать значение 'print' - что означает послать на принтер по умолчанию программой, ассоциированной с расширением файла, только если это неисполняемый файл конечно же.

TaYgA · 07.10.2009, 17:17

Я не совсем понял вашу мысль.... В инете подглядел "Печать текстового файла". Там имеется код:

Код:

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;

У меня вылетает ошибка на строке AssignPrn... Что я делаю не так?!?

pu4koff · 07.10.2009, 17:26

Цитата:

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

У меня вылетает ошибка на строке AssignPrn... Что я делаю не так?!?

Ошибка во время компиляции вылетает или во время работы уже готовой программы? Что именно за ошибка? Что пишут в тексте ошибки?
Для проверки моих навыков ясновидения: Модуль Printers добавил в раздел uses?

TaYgA · 07.10.2009, 17:59

pu4koff, ваши экстросенсорные навыки подтвердились

Спасибо за помощь

TaYgA · 07.10.2009, 18:01

А скажите пожалуйсто, можно ли увеличить размер шрифта при печати, а то у меня принтер расспечатывает текстовый файл 3-4 шрифтом...

07.10.2009, 09:01	#12
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Да. его второй параметр может принимать значение 'print' - что означает послать на принтер по умолчанию программой, ассоциированной с расширением файла, только если это неисполняемый файл конечно же. I'm learning to live...

07.10.2009, 17:17	#13
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	Я не совсем понял вашу мысль.... В инете подглядел "Печать текстового файла". Там имеется код: Код: `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;` У меня вылетает ошибка на строке AssignPrn... Что я делаю не так?!?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Возможности Delphi	max38934	Общие вопросы Delphi	2	18.05.2009 22:46
Delphi 7 - скрытые возможности Unicode (WideString)	BOBAH13	Общие вопросы Delphi	7	13.03.2009 08:40
Возможности CGI	Viteef	PHP	18	29.04.2008 22:48
Media возможности в Delphi	NoName_emaNoN	Win Api	12	28.01.2008 12:18

06.10.2009, 19:49	#11
Вавел из ГМТУ Форумчанин Регистрация: 19.06.2009 Сообщений: 896	Чтобы вывести фаил на принтер можно заюзать ShellExecute(..)

07.10.2009, 17:59	#15
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	pu4koff, ваши экстросенсорные навыки подтвердились Спасибо за помощь

07.10.2009, 18:01	#16
TaYgA Форумчанин Регистрация: 24.09.2009 Сообщений: 264	А скажите пожалуйсто, можно ли увеличить размер шрифта при печати, а то у меня принтер расспечатывает текстовый файл 3-4 шрифтом...