Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизКак увеличить шрифт при печати? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c