I have tried yous sample and confirm follow result using freepdfxp and
using my epson printer
font_name returned by oPrn:FontName is Arial
Name of font array: Goudy
Font Name: Arial
CharSet is: 0
Name of font array: Carta
Font Name: Arial
CharSet is: 2
Name of font array: Optima
Font Name: Arial
CharSet is: 0
Name of font ar r ay: Oxfor d
Font Name: Arial
CharSet is: 0
Name of font array: Bodoni
Font Name: Arial
CharSet is: 0
Nam e of font array: Geneva
Font Name: Arial
CharSet is: 0
Name of font array: Monaco
Font Name: Arial
CharSet is: 0
Name of font array: Tekt on
Font Name: Arial
CharSet is: 0
Naμe of font array: Syμbol
Font Naμe: Syμbol
CharSet is: 2
Name of font array: Courier
Font Name: Arial
CharSet is: 0
Name of f ont ar ray: Chicago
Font Name: Arial
CharSet is: 0
Name of font array: New York
Font Name: Arial
CharSet is: 0
Name of font array: Univers 55
Font Name: Arial
CharSet is: 0
Name of font array: GillSans
Font Name: Arial
CharSet is: 0
Name of font array: Marigold
Font Name: Arial
CharSet is: 0
Name of font array: Joanna MT
Font Name: Arial
CharSet is: 0
Name of font array: Clarendon
Font Name: Arial
CharSet is: 0
Name of font array: Eurostile
Font Name: Arial
CharSet is: 0
Name of font array: Helvetica
Font Name: Helvetica
CharSet is: 0
Name of font array: Albertus MT
Font Name: Arial
CharSet is: 0
Name of font array: Times
Font Name: Times
CharSet is: 0
Name of font array: Cooper Black
Font Name: Arial
CharSet is: 0
Name of font array: Bookman
Font Name: Arial
CharSet is: 0
Name of font array: Mona Lisa Recut
Font Name: Arial
CharSet is: 0
N am e of font ar r ay : Apple Chancer y
Font Name: Arial
CharSet is: 0
Name of font array: Coronet
Font Name: Arial
CharSet is: 0
Name of font array: Goudy ExtraBold
Font Name: Arial
CharSet is: 0
Name of font array: Clarendon Light
Font Name: Arial
CharSet is: 0
Name of font array: AvantGarde
Font Name: Arial
CharSet is: 0
Nam e o f f o n t ar ray : Un iv ers Ex t en d ed
Font Name: Arial
CharSet is: 0
Name of font array: Albertus MT Lt
Font Name: Arial
CharSet is: 0
Name of font array: Helvetica-Narrow
Font Name: Arial
CharSet is: 0
Name of font ar ray: Ant ique Olive Roman
Font Name: Arial
CharSet is: 0
Name of font array: LubalinGraph
Font Name: Arial
CharSet is: 0
Name of font array: Hoefler Text Black
Font Name: Arial
CharSet is: 0
Name of font array: Wingdings
Font Name: Arial
CharSet is: 2
Name of font array: Univers 57 Condensed
Font Name: Arial
CharSet is: 0
Name of font array: GillSans Condensed
Font Name: Arial
CharSet is: 0
N ame of font ar r ay: GillSans Ext r aBold
Font Name: Arial
CharSet is: 0
Name of font array: Hoefler Text
Font Name: Arial
CharSet is: 0
Name of font array: Helvetica Condensed
Font Name: Arial
CharSet is: 0
Na m e o f f o n t a r r a y : A n t i q u e Ol i v e Co m p a c t
Font Name: Arial
CharSet is: 0
Name of font array: StempelGaramond Roman
Font Name: Arial
CharSet is: 0
N a m e o f f o n t a r r a y : E u r o s t ile E x t e n d e d T w o
Font Name: Arial
CharSet is: 0
Name of font array: NewCenturySchlbk
Font Name: Arial
CharSet is: 0
Name of font array: Univers 47 CondensedLight
Font Name: Arial
CharSet is: 0
Name of font array: Arial Baltic
Font Name: Arial
CharSet is: 186
Name of font array: Arial CE
Font Name: Arial
CharSet is: 238
Name of font array: Arial CYR
Font Name: Arial
CharSet is: 204
Name of font array: Arial Greek
Font Name: Arial
CharSet is: 161
Name of font array: Arial TUR
Font Name: Arial
CharSet is: 162
Name of font array: Batang
Font Name: Batang
CharSet is: 0
Name of font array: @
Batang
Font Name: @Batang
CharSet is:
0
Name of font array: BatangChe
Font Name: BatangChe
CharSet is: 0
Name of font array: @BatangChe
Font Name: @BatangChe
CharSet is:
0
Name of font array: Gungsuh
Font Name: Gungsuh
CharSet is: 0
Name of font array: @Gungsuh
Font Name: @Gungsuh
CharSet is:
0
Name of font array: GungsuhChe
Font Name: GungsuhChe
CharSet is: 0
Name of font array: @GungsuhChe
Font Name: @GungsuhChe
CharSet is:
0
Name of font array: Courier New
Font Name: Courier New
CharSet is: 0
Name of font array: Courier New Baltic
Font Name: Arial
CharSet is: 186
Name of font array: Courier New CE
Font Name: Arial
CharSet is: 238
Name of font array: Courier New CYR
Font Name: Arial
CharSet is: 204
Name of font array: Courier New Greek
Font Name: Arial
CharSet is: 161
Name of font array: Courier New TUR
Font Name: Arial
CharSet is: 162
Name of font array: DaunPenh
Font Name: Arial
CharSet is: 0
Name of font array: DokChampa
Font Name: Arial
CharSet is: 0
Name of font array: Estrangelo Edessa
Font Name: Arial
CharSet is: 0
Name of font array: Euphemia
Font Name: Arial
CharSet is: 0
2009/11/7 Itamar Lins <itamarl...@bol.com.br>
> 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
>
--
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
