...
yd=TextHeight('11');//определяем высоту строки
y=2*yd;//y целое число "Отступ от верхнег края листа"
...
with Printer do
begin
with Printer do
begin
...
for i=0 to Memo1.Lines.Count-1 do
begin
//выводим следующую строку
TextOut(100,100,Memo1.Lines);
inc(y,yd);
...
//здесь определяем действия при нижнем крае листа
...
end;
end;
end;
...
Tprinter
Подскажите вот с таким вопросом
почему когда выводишь на печать вот такой функцией
Printer.Canvas.TextOut(100, 100, memo1.text);
на бумаге есть только одна сторчка из мемо а не весть текст в мемо!
в чём проблема?
почему когда выводишь на печать вот такой функцией
Printer.Canvas.TextOut(100, 100, memo1.text);
на бумаге есть только одна сторчка из мемо а не весть текст в мемо!
в чём проблема?
Дело в том что ты послал на принтер тока одну строку:) .
сделай примерно так:
сделай примерно так:
Код:
я вот сделал так
токо отступ не получается всё равно печатат оду строку
Код:
Printer.BeginDoc;
for i:=0 to Memo1.Lines.Count-1 do
Canvas.TextOut(50,50+i*20,Memo1.lines);
Printer.EndDoc;
end;
for i:=0 to Memo1.Lines.Count-1 do
Canvas.TextOut(50,50+i*20,Memo1.lines);
Printer.EndDoc;
end;
токо отступ не получается всё равно печатат оду строку
Может у тебя в Memo одна строка? :)
In0stRAnez а ты пример из FAQ'a пробовал?
http://forum.codenet.ru/showpost.php?p=69072&postcount=4
посмотри как пример.
http://forum.codenet.ru/showpost.php?p=69072&postcount=4
посмотри как пример.