Hi!
Please, look this is example.
Function Main
aPrn := GetPrinters()
If empty(aPrn)
MsgStop("Error")
return .f.
EndIf
oPrn := win_prn():New(GetDefaultPrinter()) //Is pdf virtual printer. "pdf
creator"
oPrn :LandScape := .f.
oPrn :Copies := 1
if !oPrn:Create()
MsgStop("error")
return nil
endif
if !oPrn:StartDoc("test")
MsgStop("Error")
return nil
EndIf
aFonts := oPrn:GetFonts()
For n := 1 to len(aFonts)
oPrn:CharSet(0) //reset charset
oPrn:SetFont(aFonts[n,1],11,,,,255)
oPrn:TextOut('Name of font array: '+aFonts[n,1],.t.)
oPrn:CharSet(255)
oPrn:TextOut('Font Name: ' + oPrn:FontName,.t.)
oPrn:TextOut('CharSet is: '+STR(aFonts[n,4],5),.t.)
if n==30 .or. n==60 .or. n==90 .or. n==120
oPrn:NewPage()
endif
Next
The return of line "oPrn:TextOut(oPrn:FontName,.t.)" is incorrect and set
CHARSET for 255 code page to fonts roman, script, modern.
Best regards,
Itamar M. Lins Jr.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
