|
|
|
новичок
участник
Last Login: 01.02.2007 3:59
Сообщ.: 1,
Visits: 21
|
|
windows XP, VB 6
Private Sub Form_Load()
Dim objPrinter As Object
Set objPrinter = Printer
objPrinter.PrintQuality = -4
objPrinter.Font.Name = "Courier"
end sub
никаких ошибок не выдает, но и не изменияет значение.
Спасибо.
|
|
|
|