Для профессионалов

[jax]

Для профессионалов

Доброе время суток!
Задача на дельфи 7

Я ввожу в Edit текст(несколько полей),то что я ввёл нужно расспечать,если вдруг кто знает помогите пожалуйста.

 

[AlexZir]

TEdit - однострочная компонента, в ней не может быть несколько полей. Дайте исходник программы, может, после этого будет понятнее, что вы имеете в виду.

Вообще распечатать содержимое полей можно несколькими способами, к примеру, используя диалог печати, непосредственно с формы или направляя поток данных из окна ввода непосредственно на принтер. Если дадите необходимые пояснения или исходник вашей программы - помогу с организацией печати.

 

[jax]

Под нескольку полями я имел ввиду несколько TEdit.
К сожелению исходник прикрепить не могу,нету с собой.Пишу к интернет кафе.
На форму кидаю 4-ыре TEdit и одну кнопку.

Ввожу в TEdit какой то текст,затем нажимаю кнопку и мои данные открываются в word например,а через word я уже смогу расспечатать.
Если знаете то подскажите или если есть время,то лудше кодинк напишите.
Спасибо что уделили внемание!

 

[AlexZir]

Есть другой вариант - распечатывать непосредственно с формы, без передачи данных во внешнее приложение, тем более, что MS Word из-за борьбы за лицензионную чистоту софта нынче уже не на каждом компьютере установлен.

 

[jax]

Если есть тогда нипишите его пожалуйста

 

[AlexZir]

Если есть тогда нипишите его пожалуйста

Раз уж вы так настаиваете, то писать не буду, а то уже листинг почти достал )

uses printers;

procedure Button1.Click(......);
var Prn: TextFile;
begin
AssignPrn(Prn);
Rewrite(Prn);
WriteLN(Prn,Edit1.Text);
WriteLN(Prn,Edit2.Text);
WriteLN(Prn,Edit3.Text);
WriteLN(Prn,Edit4.Text);
WriteLN(Prn,#12);
CloseFile(Prn);
end;

Простейшая процедурка для печати по нажатию кнопки.Если принтер не включен - могут быть ошибки печати. Обработку эксцепшн сами добавьте

 

[jax]

Спасибо ))щас проверю

 

[jax]

Принтера нету,написал данй листинг,открывается диалоговое окно,и появляется рассширение *.xps это что значит ??

 

[AlexZir]

Предлагает напечатать в файл с расширением xps, это нормальная реакция операционной системы при обращении к виртуальному принтеру. Если бы был принтер - печатала бы на него.

 

[jax]

Спасибо,всё понятно,курсовую написал(ЖД Касса),всё сделал,а вот с печатью не сталкивался.

 

[jax]

Всё работает,спасибо!

У меня вот какой теперь вопрос - "А можно сделать какнибуть шаблон??"
Распечатка происходит в левом верхнем углу (в формате А4) получается не очень красиво,у меня курсовой проект (ЖД касса),и мне нужно сделать по красивей расспечатку.

Я тут подумал,и вот что пришло в голову,может оформить так - "Накидать на форму ещё TEdit сразу в них сделать узору или прописать кикието слова,затем сделать их невидемыми,но при расспечатки я думаю они тоже учьтутся или нет??"

 

[AlexZir]

В том и прелесть программирования, что можно почти все, главное, знать, как задуманное реализовать )

Вам можно не добавлять на форму новые элементы, а отправлять на печать непосредственно текстовые выражения. Также существуют команды настройки параметров печати, которые позволят управлять режимом печати более эффективно.

На вашем месте я бы прочитал прежде всего справку по модулю printers, потом много вопросов отпало бы само собой )

 

[jax]

Спасибо щас почитаю