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:609353e70911071141r1f93a800ne3e3ab032d149...@mail.gmail.com... > 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
