PrivateFontCollection

Hola, Jesus:

Prueba:

Dim MiFuente As New Font(FamiliaFuentes(0), 12, FontStyle.Regular, GraphicsUnit.Point)


Saludos.


"Jesus" escribió en el mensaje news:
| Hola a todos
| Estoy intentanto utilizar una fuente sin instalarla en el equipo:
|
| Dim FuentePrivada As New System.Drawing.Text.PrivateFontCollection
|
|
| FuentePrivada.AddFontFile("E:\Fuentes\MiFuente.TTF")
| Dim FamiliaFuentes() As FontFamily = FuentePrivada.Families
| Dim FuenteNombre As String = FamiliaFuentes(0).Name
| Dim MiFuente As New Font(FuenteNombre, 12, FontStyle.Regular,
| GraphicsUnit.Point)
|
| pero MiFuente siempre tiene Sans Serif.
| ¿Que es lo que hago mal o que me falta por hacer?
| Un saludo