Вывод на печать

← →
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;

> [8] dim (31.12.07 13:07)

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

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

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

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