Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
7-32041
Андрей Борода
2002-08-01 23:49
2002.10.10
Убрать проги из автозагрузки.


4-32055
SPeller
2002-08-22 20:44
2002.10.10
Скроллбар


1-31764
Hammer1
2002-10-01 09:08
2002.10.10
DELPHI и VB


1-31729
diMAN
2002-09-27 18:16
2002.10.10
Свой обработчик для кнопки


1-31768
sArthur
2002-10-01 08:39
2002.10.10
Формирование отчетов в HTML и печать из TWebBrowser