What is your compiler ? My is MSVC express, and show small box, instead of characters. :-(
Best regards, Itamar M. Lins Jr. "Xavi" <[email protected]> escreveu na mensagem news:[email protected]... > 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
