Print to Pdf printer and fonts
Posted: 25 May 2010, 18:19
I can convert dwg into pdf file, but text are not selectable in pdf viewer. I think is a font issue, but how can i set the righe font ? Should i use SHX fonts ?
Code: Select all
_cadImage = CADImage.CreateImageByExtension(_nameFile)
_cadImage.UseDoubleBuffering = False
_cadImage.LoadFromFile(_nameFile)
_cadImage.UseSHXFonts = True
_cadImage.UseTTFFonts = Not _cadImage.UseSHXFonts
_cadImage.UseMultyTTFFonts = Not _cadImage.UseSHXFonts
Dim entMText As CADMText = New CADMText
entMText.Text = "{\fTimes New Roman|b0|i1;\H19;\l\C132;timers\P}"
entMText.Color = Color.Red
entMText.Point = New DPoint(100, 100, 0)
entMText.Height = 10
entMText.Loaded(_cadImage.Converter)
_cadImage.Converter.GetSection(FaceModule.ConvSection.Entities).AddEntity(entMText)
_cadImage.Converter.OnCreate(entMText)
_cadImage.Converter.Loads(entMText)
Dim entText As CADText = New CADText
entText.Color = Color.Green
entText.Point = New DPoint(-200, -200, 0)
entText.Height = 12
entText.FontName = "E:\Documents and Settings\mercanti\Desktop\cadimportnet_07\dwg\dwg\romans.shx"
entText.Text = entText.FontName
entText.Loaded(_cadImage.Converter)
_cadImage.Converter.GetSection(FaceModule.ConvSection.Entities).AddEntity(entText)
_cadImage.Converter.OnCreate(entText)
_cadImage.Converter.Loads(entText)
_cadImage.GetExtents()
Dim prtForm As CADImport.Printing.PrintingForm
prtForm = New CADImport.Printing.PrintingForm
prtForm.TypePage = CADImport.Printing.DrawingSize.Fit
prtForm.Image = _cadImage
prtForm.Print(True)