[Harbour] Problem with win_prn class CHARSET.

[Itamar Lins]

Hi!

Function Test_Charset

     oPrn := win_prn():New(GetDefaultPrinter())
     oPrn :LandScape := .f.
     oPrn :Copies    :=  1
     if !oPrn:Create()
        MsgStop("Fail...")
        return nil
     endif

     if !oPrn:StartDoc("Print...")
           MsgStop("Error...")
           return nil
     else
           oPrn:CharSet(255)
           oPrn:setfont('Lucida Console',,11,,,,255)
     endif
  
oPrn:TextOut('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»',.t.)
 oPrn:EndDoc()

Before run ok show =======, now show wrong results 'ÍÍÍÍÍÍÍÍÍ' in paper of 
print.


Best regards,
Itamar M. Lins Jr.





_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour