Tweet
Hi all there,
i am using print code embending (peteconv solution in this forum) in a dialog's after validate events, in order to print a greek font web report in pdf. I am still getting garbage fonts. The strange issue is that i have built 4 more reports with the same method that print fine in web. Up to now no difference between the reports designs i have found. I list here the report code for someone to help
(This forum is excellent. I have found many solutions although i am a newbie in developing A5 apps.)
Thanks to all people here...
AFTER VALIDATE CODE IN WEB DIALOG COMPONENT
delete PrintOptions
DIM PrintOptions as P
With PrintOptions
.Concatenate = .f.
.HasWatermark = .t.
.MultilingualSupport = .t.
.EmbedFonts = .t.
.LinearizeForWeb = .f.
.Colors2GrayScale = .f.
.ConvertHyperlinks = .f.
.WatermarkType = "Text"
.WatermarkText = "Ε Α Π Α.Ε."
.WatermarkFontName = "Times New Roman"
.WatermarkFontSize = 200
.WatermarkRotation = 400
.WatermarkColorHex = "E8FED2"
.WatermarkHorizPos = 300
.WatermarkVertPos = +40
.WatermarkOnTop = .f.
.WatermarkPDF = ""
.Encrypt = .f.
.OwnerPassword = ""
.UserPassword = ""
.CanPrint = .t.
.CanModifyDocument = .t.
.CanCopy = .t.
.CanAddNotes = .t.
.Use128BitKey = .f.
.JpegQuality = "Low"
End with
IF eval_valid("hmrdv") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(Tb_Rdv->Hm_rdv = ctod(\""+convert_type(hmrdv,"C")+"\") ) .and. (Tb_Rdv->Rdv = .t. ) .and. isnotblank(\"Tb_Rdv->Tilephonitria\")"
Order = "Tb_Rdv->Politis"
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("[email protected][PathAlias.ADB_Path]\ktirio_rdv.set","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
skipreport:
i am using print code embending (peteconv solution in this forum) in a dialog's after validate events, in order to print a greek font web report in pdf. I am still getting garbage fonts. The strange issue is that i have built 4 more reports with the same method that print fine in web. Up to now no difference between the reports designs i have found. I list here the report code for someone to help
(This forum is excellent. I have found many solutions although i am a newbie in developing A5 apps.)
Thanks to all people here...
AFTER VALIDATE CODE IN WEB DIALOG COMPONENT
delete PrintOptions
DIM PrintOptions as P
With PrintOptions
.Concatenate = .f.
.HasWatermark = .t.
.MultilingualSupport = .t.
.EmbedFonts = .t.
.LinearizeForWeb = .f.
.Colors2GrayScale = .f.
.ConvertHyperlinks = .f.
.WatermarkType = "Text"
.WatermarkText = "Ε Α Π Α.Ε."
.WatermarkFontName = "Times New Roman"
.WatermarkFontSize = 200
.WatermarkRotation = 400
.WatermarkColorHex = "E8FED2"
.WatermarkHorizPos = 300
.WatermarkVertPos = +40
.WatermarkOnTop = .f.
.WatermarkPDF = ""
.Encrypt = .f.
.OwnerPassword = ""
.UserPassword = ""
.CanPrint = .t.
.CanModifyDocument = .t.
.CanCopy = .t.
.CanAddNotes = .t.
.Use128BitKey = .f.
.JpegQuality = "Low"
End with
IF eval_valid("hmrdv") = .f. Then
goto skipreport
end if
dim filter as c
dim order as c
Filter = "(Tb_Rdv->Hm_rdv = ctod(\""+convert_type(hmrdv,"C")+"\") ) .and. (Tb_Rdv->Rdv = .t. ) .and. isnotblank(\"Tb_Rdv->Tilephonitria\")"
Order = "Tb_Rdv->Politis"
Dim filename as c
filename = session.session_folder + "tempreport.pdf"
filename = report.saveas("[email protected][PathAlias.ADB_Path]\ktirio_rdv.set","pdf",filter,order,filename,.f.)
if file.exists(filename)
currentform.RedirectTarget = session.session_url + "tempreport.pdf?" + time("hms3")
end if
skipreport:
Comment