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)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
