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

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

Вывод на печать [D6, XP]

dim ©   (2007-12-30 14:06:00) 

Подскажите как передать на печать содержимое формы(ComboBox.Text, Edit.Text, MaskEdit.Text)?

---

dim   (2007-12-31 14:09:00) [1]

Мне принцип нужен был, координаты я в своем коде менять буду... Спасибо за советы. С наступающим Новым годом ВСЕХ!!!

---

engine   (2007-12-31 13:13:00) [2]

> [8] dim   (31.12.07 13:07)

Именно, но выводит друг на друга )))
Координаты дядя менять будет?

---

dim   (2007-12-31 13:07:00) [3]

Т.е. вот этот код выводит на печать в интересующей меня последовательности?

Printers.Printer.BeginDoc;
Printers.Printer.Canvas.TextOut(10,10,ComboBox.Text);
Printers.Printer.Canvas.TextOut(10,10,Edit.Text);
Printers.Printer.Canvas.TextOut(10,10,MaskEdit.Text);
Printers.Printer.EndDoc;

---

MsGuns   (2007-12-30 22:04:00) [4]

PrintScreen, Alt+PrintScreen

---

{RASkov}   (2007-12-30 21:32:00) [5]

> [4] dim   (30.12.07 21:18)
> Мне вся форма не нужна...

Тогда смотри самый первый ответ...
Есть трудности с этим?)

---

engine   (2007-12-30 21:25:00) [6]

> [4] dim   (30.12.07 21:18)

А что, не один из предложенных вариантов не подошел?

---

dim   (2007-12-30 21:18:00) [7]

Мне вся форма не нужна... Меня больше интересует последовательность вывода на печать содержимого:
1)ComboBox.Text,
2)Edit.Text,
3)MaskEdit.Text

---

{RASkov}   (2007-12-30 20:36:00) [8]

> [0] dim   (30.12.07 14:06)
> Подскажите как передать на печать содержимое формы

Printers.Printer.BeginDoc;
Printers.Printer.Canvas.Draw(0, 0, GetFormImage);
Printers.Printer.EndDoc;

Может так? :)

---

AlexanderMS   (2007-12-30 15:35:00) [9]

Help:

This code prints a line of text on the printer when the user clicks the button on the form:

procedure TForm1.Button1Click(Sender: TObject);

var
 MyFile: TextFile;
begin
 AssignPrn(MyFile);
 Rewrite(MyFile);
 Writeln(MyFile, 'Print this text');
 System.CloseFile(MyFile);
end;

---

engine   (2007-12-30 15:31:00) [10]

Printers.Printer.BeginDoc;
Printers.Printer.Canvas.TextOut(10,10,Edit1.Text);
Printers.Printer.EndDoc;

---

Наверх