Отправлено: 18.06.13 11:18. Заголовок: Снова WIN_PRN (Hbwin)

Устал бороться с этой проблемой , не работает кол-во копий,
всегда печатается 1 копия.
Просьба проверить как у кого отработает под Harbour.
У меня Harbour 3.2.0dev (Rev. 18920)

Пример

 
 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 
 

PS
Пробовал под Mingw и Bcc

 Отправлено: 11.12.14 15:07. Заголовок: Нужно было ужать рас..

Нужно было ужать распечатку чтобы влезла на лист A4.
Указал oPrinter:LineHeight := 90, стало нормально.
Насчет значения LineHeight = 6 по умолчанию сомневаюсь.
Судя по всему >100.