What's the best choice? MSVC or Mingw ? What's the standard compiler for harbour ?
Best regards, Itamar M. Lins Jr. "Massimo Belgrano" <mbelgr...@deltain.it> escreveu na mensagem news:609353e70911080534n1c327690qae2f1e1f05d7b...@mail.gmail.com... FREEPDFXP + Mingw version Harbour Terminal: Windows native console Harbour 2.0.0beta3 (Rev. 12829) Windows Vista 6.0.6002 Service Pack 2 DS avail=684936KB OS avail=2063912KB EMM avail=0KB MemStat:Off MT:Off Try with http://freepdfxp.de/xpDownload.html 2009/11/8 Itamar Lins <itamarl...@bol.com.br> Hi! Massimo, I use MSVC Express 9 with Windows XP, my results is not equal. Version of Harbour SVN. /* * $Id: ChangeLog 12829 2009-11-07 03:25:24Z april $ */ Best regards, Itamar M. Lins Jr. "Massimo Belgrano" <mbelgr...@deltain.it> escreveu na mensagem news:609353e70911071141r1f93a800ne3e3ab032d1495c1-jsoawuisxosn+bqq9rb...@public.gmane.org... your sample Run without problem (replaced msgstop with alert ) In my file Charset is: 255 Font Is: Lucida Console 2009/11/7 Itamar Lins <itamarl...@bol.com.br> Hi! Massimo, please test. Function Main aPrn := GetPrinters() 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(255) oPrn:Setfont('Lucida Console',,11,,,,255) 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() Is correct this is results ? Best regards, Itamar M. Lins Jr. _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour -- Massimo Belgrano Analisi e sviluppo software per Lan e Web - Consulenza informatica - Formazione Delta Informatica S.r.l. http://www.deltain.it/ +39 0321 455962 -------------------------------------------------------------------------- _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour -- Massimo Belgrano ------------------------------------------------------------------------------
_______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
