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
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")
