Скачать: CL | DM;

Вывод на печать   Найти похожие ветки 

← →
dim   (2007-12-30 14:06) [0]

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

---

← →
engine ©   (2007-12-30 15:31) [1]

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

---

← →
AlexanderMS ©   (2007-12-30 15:35) [2]

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;

---

← →
{RASkov} ©   (2007-12-30 20:36) [3]

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

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

Может так? :)

---

← →
dim   (2007-12-30 21:18) [4]

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

---

← →
engine ©   (2007-12-30 21:25) [5]

> [4] dim   (30.12.07 21:18)

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

---

← →
{RASkov} ©   (2007-12-30 21:32) [6]

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

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

---

← →
MsGuns ©   (2007-12-30 22:04) [7]

PrintScreen, Alt+PrintScreen

---

← →
dim   (2007-12-31 13:07) [8]

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

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;

---

← →
engine ©   (2007-12-31 13:13) [9]

> [8] dim   (31.12.07 13:07)

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

---

← →
dim   (2007-12-31 14:09) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c