Hi Itamar,

Exactly which compiler did you use here?

In UNICODE builds you have to use Set( _SET_CODEPAGE )
to set the CP you use in your app probably.
Maybe other will have better suggestions.

Brgds,
Viktor

On 2009 Oct 17, at 17:04, Itamar Lins wrote:

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

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

Reply via email to