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

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

Очередь печати. [D6, Win2k]

Mishenka ©   (2004-04-28 23:59:00) 

При печати на принтере в очереди печати в графе имя файла ничего не указано. Как сделать, чтоб выводилось нужное имя файла?

---

Anatoly Podgoretsky   (2004-05-03 13:38:00) [1]

Свойство Printer, на поиск после указания кода ушло 5 секунд, много меньше чем писать сообщение.

---

Mishenka   (2004-05-03 13:35:00) [2]

Программа печатает либо содержимое RichEdit или Image
Вот две подпрограммы:
Для RichEdit:


var Line:Integer;
   PrintText:System.Text;
AssignPrn(PrintText);
Rewrite(PrintText);
for Line:=0 to RichEdit1.Lines.Count-1 do
Writeln(PrintText,RichEdit1.Lines[Line]);
System.Close(PrintText);

для Image:

var K,K1,K2:Real;
   RR:TRect;
with Printer do
begin
    BeginDoc;
    K:=Image1.Picture.Width/Image1.Picture.Height;
    K1:=PageWidth/Image1.Picture.Width;
    K2:=PageHeight/Image1.Picture.Height;
    if K1>K2 then RR:=Rect(0,0,Round(PageHeight*K),PageHeight)
       else RR:=Rect(0,0,PageWidth,Round(PageWidth/K));
    Canvas.StretchDraw(RR,Image1.Picture.Graphic);
    EndDoc;
end;


---

Cobalt   (2004-05-03 10:41:00) [3]

А это уже смотря как ты печатаешь. Ты же не указал

---

Mishenka   (2004-05-03 02:53:00) [4]

Я понимаю что надо указывать. А как?

---

Anatoly Podgoretsky   (2004-05-02 12:09:00) [5]

Надо указывать самому

---

Cobalt   (2004-05-02 09:17:00) [6]

А ты о чём?
Вопрос задай конкретно, или ты не программист?

---

Mishenka   (2004-05-01 18:35:00) [7]

А про какие настройки идёт речь?

---

Cobalt   (2004-05-01 02:06:00) [8]

В настройках программы указать - "указывать имя файла"

---

Mishenka   (2004-04-30 14:33:00) [9]

Ау

---

Наверх