Форум » [x]Harbour » Снова WIN_PRN (Hbwin) » Ответить
Снова WIN_PRN (Hbwin)
Dima: Устал бороться с этой проблемой , не работает кол-во копий, всегда печатается 1 копия. Просьба проверить как у кого отработает под Harbour. У меня Harbour 3.2.0dev (Rev. 18920) Пример [pre2] PROC Main() LOCAL oPrinter, i LOCAL cPrinter:=win_printerGetDefault() oPrinter := Win_Prn():New( cPrinter ) oPrinter:Copies := 2 oPrinter:Create() oPrinter:startDoc("testprn") FOR i := 1 TO 40 oPrinter:TextOut(str(i)) oPrinter:NewLine() NEXT oPrinter:endDoc() oPrinter:Destroy() return [/pre2] PS Пробовал под Mingw и Bcc
Ответов - 21, стр:
1 2 All
azoo: Нужно было ужать распечатку чтобы влезла на лист A4. Указал oPrinter:LineHeight := 90, стало нормально. Насчет значения LineHeight = 6 по умолчанию сомневаюсь. Судя по всему >100.
полная версия страницы