[Harbour] Re: Win_prn problem.

[Itamar Lins]

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