AlejandroFH
unread,Jul 23, 2016, 2:33:21 AM7/23/16Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Sign in to report message
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to Comunidad de Visual Foxpro en Español
Hola:
Tengo un reporte hecho que incluye palabras chinas y debo convertirlo a PDF. Uso el FoxPreviewer
SET PATH TO c:\chinesedatabases\ , c:\chinesedatabases\foxprev3\
SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
SET STATUS BAR OFF
SET CONSOLE OFF
SET TALK OFF
LOCAL loReport as "PreviewHelper" OF "FoxyPreviewer.Prg"
loReport = CREATEOBJECT("PreviewHelper")
*loReport = NEWOBJECT("PreviewHelper", "FoxyPreviewer.Prg")
WITH loReport as ReportHelper
.AddReport("c:\chinesedatabases\rpthskbase.frx" )
*!* .nCanvasCount = 1 && initial nr of pages rendered on the preview form.
*!* && Valid values are 1 (default), 2, or 4.
*!* .nZoomLevel = 5 && initial zoom level of the preview window. Possible values are:
*!* && 1-10%, 2-25%, 3-50%, 4-75%, 5-100% default, 6-150% ;
*!* && 7-200%, 8-300%, 9-500%, 10-whole page
.RunReport()
DO CASE
CASE .lPrinted
MESSAGEBOX("Report was printed !",64, "Report status")
CASE .lSaved
MESSAGEBOX("Report was saved as file:" + CHR(13) + .cDestFile,;
64, ;
"Report status")
.OpenFile(.cDestFile)
OTHERWISE
MESSAGEBOX("Report Preview was closed without saving or printing",48, "Report status")
ENDCASE
ENDWITH
Como dice en la documentacion, he agregado el TAG <UNICODE> o <UC> en el campo de usuario.
Al final no me muestra las letras chinos sino codigo ASCII.
Que estoy haciendo mal?
Muchas gracias por su ayuda.