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