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

Печать документа   Найти похожие ветки 

← →
allucard   (2007-04-19 09:23) [0]

Доброго всем дня.

Есть TStringList с данными.

Как его можно напечатать, не роскидывая по форме.

Спасибо.

---

← →
clickmaker ©   (2007-04-19 10:01) [1]

uses Printers

Printer.BeginDoc

Printer.Canvas.TextOut

Printer.EndDoc

---

← →
allucard   (2007-04-19 10:52) [2]

> clickmaker ©   (19.04.07 10:01) [1]

спасиб.

---

← →
allucard   (2007-04-19 11:07) [3]

а поток TMemoryStream напечатать в нём можно?

---

← →
DrPass ©   (2007-04-19 11:12) [4]

> uses Printers
>
> Printer.BeginDoc
>
> Printer.Canvas.TextOut
>
> Printer.EndDoc

Для вывода простого текста можно и не заморачиваться с растровой печатью
var f: TextFile;
...
AssignPrn(f)
for i:=0 to MyStringList.Count - 1 do writeln(f, MyStringList[i]);
CloseFile(f);


> а поток TMemoryStream напечатать в нём можно?

Можно. Вопрос только в том, как это будет выглядеть

---

← →
allucard   (2007-04-19 11:18) [5]

> DrPass ©   (19.04.07 11:12) [4]
> Можно. Вопрос только в том, как это будет выглядеть

Хотелось бы в Hex или ASCII.


> clickmaker ©   (19.04.07 10:01) [1]

procedure TForm1.Button3Click(Sender: TObject);
var
 tm : TTextMetric;
 i : integer;
begin
 if PrintDialog1.Execute then
   begin
     Printer.BeginDoc;
     Printer.Canvas.Font.Handle := GetStockObject (DEVICE_DEFAULT_FONT);
     GetTextMetrics(Printer.Canvas.Handle, tm);
     for i := 1 to 10 do
       begin
         Printer.Canvas.TextOut(100,i * tm.tmHeight+ tm.tmExternalLeading,"Test");
       end;
    Printer.EndDoc;
   end;
end;

Не печатает гад! Что ему не нравится?

---

← →
clickmaker ©   (2007-04-19 11:20) [6]

> Что ему не нравится?

а я знаю?
try
 твой код
except
 on e:exception do ShowMessage(e.Message);
end;
может подскажет

---

← →
allucard   (2007-04-19 12:22) [7]

> clickmaker ©   (19.04.07 11:20) [6]

Разобрался вроде.

Но лень canvas в run-time заполнять вякими Rectangl"ами.

Какой лучше компонент использовать для рисования рамок(кроме формы), чтоб его напечатать?
Может какой-то специальный есть?

---

← →
Amoeba ©   (2007-04-19 12:55) [8]

QReport, FreeReport/FastReport

---

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

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



Память: 0.46 MB
Время: 0.049 c