Текущий архив: 2002.10.10;
Скачать: CL | DM;

Вниз

Как увеличить шрифт при печати?   Найти похожие ветки 

← →
FLAW ©   (2002-10-01 23:35) [0]

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

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 07:34) [1]

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

---

← →
gek ©   (2002-10-02 08:15) [2]

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

---

← →
Song ©   (2002-10-02 08:15) [3]

Printer.Canvas.Font.Size:=12;

---

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

Текущий архив: 2002.10.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c