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

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

Как увеличить шрифт при печати? [D6, Win95/98]

FLAW ©   (2002-10-01 23:35:00) 

Прошу помощи, есть процедура вывода на печать:

procedure TForm1.Button2Click(Sender: TObject);
var Pr : TextFile;
begin
AssignPrn(Pr);
Rewrite(Pr);
WriteLn(Pr,(Label1.Caption + " " + Label7.Caption));
WriteLn(Pr,(Label2.Caption + " " + Label8.Caption));
WriteLn(Pr,(Label3.Caption + " " + Label9.Caption));
WriteLn(Pr,(Label4.Caption + " " + Label10.Caption));
WriteLn(Pr,(Label5.Caption + " " + Label11.Caption));
WriteLn(Pr,(Label6.Caption + " " + Label12.Caption));
if Edit2.Text <> "" then
begin
WriteLn(Pr,(Label13.Caption + " " + Label14.Caption));
end;
System.CloseFile(Pr);
end;

Как можно увеличить размер шрифта?

---

gek   (2002-10-02 08:15:00) [1]

Ну можно еще попробовать
Printer.Canvas.Font:=Label12.Font

---

Song   (2002-10-02 08:15:00) [2]

Printer.Canvas.Font.Size:=12;

---

gek   (2002-10-02 07:34:00) [3]

В данном случае никак.
Грузи данные в memo или RichEdit

---

Наверх