|
Тема
|
commondialog.showfont
|
|
Автор | student (Нерегистриран) |
Публикувано | 06.11.03 12:00 |
|
Дайте едно примерче по темата, искам да задам Printer.font
| |
|
командата е CommonDialog1.ShowFont. Само че имаш един флаг - cdlCFBoth. Той ти дава възможност да избираш между принтерски и скриин фонтове, които имаш на компютъра си.
Можеш да добавиш и cdlCFEffects, което ти дава възможност за използване на Underline, Italic, Bold, StrikeThrough.
Пример:
Private Sub Command1_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
End sub
После си ползваш:
Printer.FontName = CommonDialog1.FontName
Printer.FontSize = CommonDialog1.FontSize
и така нататаък...
| |
Тема
|
Re: ...
[re: Jimmy]
|
|
Автор | student (Нерегистриран) |
Публикувано | 07.11.03 08:41 |
|
не се печата кирилицата, това е проблема.
| |
|
какъв фонт ползваш ?
| |
Тема
|
Re: ...
[re: student]
|
|
Автор | Гeoprи (Нерегистриран) |
Публикувано | 08.11.03 19:48 |
|
А защо след Prinet.FontName=... не пробваш следното:
Printer.Font.Charset = 204
и кажи дали е станало :)
| |
|
|
|
|