Вывод юникода на печать

@DannerDOS · Регистрация: 07.04.2009

Студворк — интернет-сервис помощи студентам

Делаеться так:

Delphi
1
2
resourcestring
      RS_PT1 = 'Заголовок';

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
PrintDialog := TPrintDialog.Create(Self);
    if PrintDialog.Execute then begin
      Printer := TPrinter.Create;
      Printer.Orientation := poPortrait;
      Printer.Canvas.Font.Charset := DEFAULT_CHARSET;
      Printer.Canvas.Font.Name := 'Arial Unicode MS';
      Printer.Canvas.Font.Pitch := fpDefault;
      Printer.Canvas.Font.Color := clBlack;
      Printer.Canvas.Font.Style := [fsBold];
      Printer.Canvas.Font.Size := 14;
      Printer.Title := 'Printing Information';
      Printer.BeginDoc;
      TextOutW(Printer.Handle, 100, 100, PWideChar(RS_PT1), Length(RS_PT1));
      Printer.EndDoc;
      Printer.Free;
    end;
    PrintDialog.Free;

Но в итоге, в распечатанном виде текст отображаеться в виде квадратиков...
Как правильно выводить на печать юникод?

Вот поддерживаемые шрифты:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
Roman
Script
Modern
Hobo Std
Adobe Caslon Pro Bold
Adobe Caslon Pro
Adobe Garamond Pro Bold
Adobe Garamond Pro
Arno Pro
Arno Pro Caption
Arno Pro Display
Arno Pro SmText
Arno Pro Subhead
Arno Pro Light Display
Arno Pro Smbd
Arno Pro Smbd Caption
Arno Pro Smbd Display
Arno Pro Smbd SmText
Arno Pro Smbd Subhead
Bell Gothic Std Black
Bell Gothic Std Light
Bickham Script Pro Regular
Bickham Script Pro Semibold
Birch Std
Blackoak Std
Brush Script Std
Chaparral Pro
Charlemagne Std
Cooper Std Black
Eccentric Std
Garamond Premr Pro
Garamond Premr Pro Smbd
Giddyup Std
Kozuka Gothic Pro B
@Kozuka Gothic Pro B
Kozuka Gothic Pro EL
@Kozuka Gothic Pro EL
Kozuka Gothic Pro H
@Kozuka Gothic Pro H
Kozuka Gothic Pro L
@Kozuka Gothic Pro L
Kozuka Gothic Pro M
@Kozuka Gothic Pro M
Kozuka Gothic Pro R
@Kozuka Gothic Pro R
Kozuka Mincho Pro B
@Kozuka Mincho Pro B
Kozuka Mincho Pro EL
@Kozuka Mincho Pro EL
Kozuka Mincho Pro H
@Kozuka Mincho Pro H
Kozuka Mincho Pro L
@Kozuka Mincho Pro L
Kozuka Mincho Pro M
@Kozuka Mincho Pro M
Kozuka Mincho Pro R
@Kozuka Mincho Pro R
Letter Gothic Std
Lithos Pro Regular
Mesquite Std
Minion Pro
Minion Pro Cond
Minion Pro Med
Minion Pro SmBd
Myriad Pro
Myriad Pro Cond
Myriad Pro Light
Nueva Std Cond
OCR A Std
Orator Std
Poplar Std
Prestige Elite Std
Rosewood Std Regular
Stencil Std
Tekton Pro
Tekton Pro Cond
Tekton Pro Ext
Trajan Pro
Marlett
Arial
Arial CE
Arial CYR
Arial Greek
Arial TUR
Arial Baltic
Arial Cyr
Arial
Courier New
Courier New CE
Courier New CYR
Courier New Greek
Courier New TUR
Courier New Baltic
Courier
Courier New Cyr
Lucida Console
Lucida Sans Unicode
Times New Roman
Times New Roman CE
Times New Roman CYR
Times New Roman Greek
Times New Roman TUR
Times New Roman Baltic
Times New Roman Cyr
Times New Roman
Wingdings
Symbol
Verdana
Verdana
Arial Black
Comic Sans MS
Comic Sans MS
Impact
Georgia
Franklin Gothic Medium
Palatino Linotype
Tahoma
Tahoma
Trebuchet MS
Webdings
Estrangelo Edessa
Gautami
Latha
Mangal
MV Boli
Raavi
Shruti
Tunga
Sylfaen
Microsoft Sans Serif
Microsoft Sans Serif
MT Extra
Calibri
Cambria
Cambria Math
Candara
Consolas
Constantia
Corbel
Segoe UI
Century
Wingdings 2
Wingdings 3
Arial Unicode MS
@Arial Unicode MS
Book Antiqua
Century Gothic
Bookman Old Style
Garamond
MS Mincho
@MS Mincho
Bookshelf Symbol 7
MS Reference Sans Serif
MS Reference Specialty
Haettenschweiler
MS Outlook
Monotype Corsiva
Arial Narrow
Lucida Sans
Lucida Sans Regular
Kartika
Vrinda

Находяться в:

Delphi
1
Printer.Fonts.Strings

Так ведъ может поэтому и не отображаються символы, так как в списке отсутствует Arial Unicode MS, может нужно добавить, или есть аналог в списке?

Добавлено таким вот образом:

Delphi
1
2
if Printer.Fonts.IndexOf('Arial Unicode MS') = -1 then
      Printer.Fonts.Add('Arial Unicode MS');

Затем, выводим с помоющью DrawTextW, либо TextOutW следующими образами:

Delphi
1
2
DrawTextW(Printer.Handle, PWideChar(RS_PT1), Length(RS_PT1), TRect, DT_WORDBREAK);
TextOutW(Printer.Handle, X, Y, PWideChar(RS_PT1), Length(RS_PT1));

Вот только как изменить размер шрифта, при выводе через DrawTextW и TextOutW?

т.е. код сейчас у нас следующий:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  RS_PT1: WideString;
  Rect: TRect;
begin
  RS_PT1 := 'Здесь какой нибудь юникодовый текст';
  PrintDialog := TPrintDialog.Create(Self);
  if PrintDialog.Execute then begin
    Printer := TPrinter.Create;
    Printer.Title := 'Printing Information';
    Printer.Orientation := poPortrait;
    if Printer.Fonts.IndexOf('Arial Unicode MS') = -1 then
      Printer.Fonts.Add('Arial Unicode MS');
    Printer.BeginDoc;
    with Rect do begin
      Left := 100;
      Top := 100;
      Right := 300;
      Bottom := 300;
    end;
    DrawTextW(Printer.Handle, PWideChar(RS_PT1), Length(RS_PT1), Rect, DT_WORDBREAK);
    TextOutW(Printer.Handle, 100, 100, PWideChar(RS_PT1), Length(RS_PT1));
    Printer.EndDoc;
    Printer.Free;
  end;
  PrintDialog.Free;
end;

Добавлено через 25 минут
Проблема та же самая, вывод средствами TextOutW на принтер определенным размером шрифта...
Видимо это уже в настройках принтера задаеться (т.е. объекта Printer), продолжаем изучать...

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .