commondialog.showfont

Дайте едно примерче по темата, искам да задам 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
и така нататаък...

не се печата кирилицата, това е проблема.

какъв фонт ползваш ?

А защо след Prinet.FontName=... не пробваш следното:

Printer.Font.Charset = 204

и кажи дали е станало :)