your sample Run without problem (replaced msgstop with alert ) In my file Charset is: 255 Font Is: Lucida Console
2009/11/7 Itamar Lins <[email protected]> > 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 > [email protected] > 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
test (1).7z
Description: Binary data
_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
