Itamar,
... UNICODE setting, which is default for newer MSVC
targets, f.e. the Itamar is using.
??? Ok. No Comments. :)
Change .-
REQUEST HB_CODEPAGE_PTISO
...
HB_CDPSelect( "PTISO" )
With .-
REQUEST HB_CODEPAGE_PT850
...
HB_CDPSelect( "PT850" )
Best regards.
--
Xavi
El 20/01/2010 17:09, Itamar Lins escribió:
What is your compiler ?
My is MSVC express, and show small box, instead of characters. :-(
Best regards,
Itamar M. Lins Jr.
"Xavi"<jara...@gmail.com> escreveu na
mensagem news:4b571979.5060...@gmail.com...
Hi,
Still can not print graphics for example, chr(178).
Sorry, I can not help you, my system print correctly chr(178), U+2593
(0xB2): Dark Shadow
Check it in the character map .-
http://windows.microsoft.com/pt-PT/windows-vista/Open-Character-Map
HTH
--
Xavi
El 18/01/2010 15:59, Itamar Lins escribió:
Hi!
Still can not print graphics for example, chr(178).
#include 'hbwin.ch'
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PTISO
Procedure Main ()
aPrn := GetPrinters()
HB_CDPSelect( "PTISO" )
HB_LANGSELECT( 'PT' )
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter())
oPrn :LandScape := .f.
oPrn :Copies := 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
//oPrn:CharSet(ANSI_CHARSET)
//oPrn:Setfont('Lucida Console',,11) // oPrn:Setfont('Terminal',,12)
oPrn:CharSet(OEM_CHARSET)
oPrn:Setfont('Lucida Console',,11)
oPrn:SetPrc(1,0) //Is necessary, because if I omit not print first line.
oPrn:TextOut('Charset is: '+str(oPrn:Charset(),5),.t.)
oPrn:TextOut('Font Is: '+oPrn:FontName,.t.)
For n := 1 to 255
oPrn:TextOut(chr(n),.t.)
if n == 60 .or. n == 120 .or. n == 180 .or. n == 240
oPrn:NewPage()
EndIf
Next
oPrn:EndDoc()
Best regards,
Itamar M. Lins Jr.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
