Thanks Ken
not quite working correctly however.
Am using the following code:
-----
Imports System.Runtime. InteropServices
Imports System.IO
Imports System.Drawing. Text
Private Sub frmCrystalViewe r_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Try
Dim pfc As New PrivateFontColl ection()
'load the resource
Dim fontStream As Stream =
Me.GetType().As sembly.GetManif estResourceStre am("WARCSubscri ptionsLetterGen erator.TRPI____ .PFB")
'create an unsafe memory block for the data
Dim data As System.IntPtr = Marshal.AllocCo TaskMem(fontStr eam.Length)
'create a buffer to read in to
Dim fontdata() As Byte
ReDim fontdata(fontSt ream.Length)
'fetch the font program from the resource
fontStream.Read (fontdata, 0, fontStream.Leng th)
'copy the bytes to the unsafe memory block
Marshal.Copy(fo ntdata, 0, data, fontStream.Leng th)
'pass the font to the font collection
pfc.AddMemoryFo nt(data, fontStream.Leng th)
'close the resource stream
fontStream.Clos e()
'free the unsafe memory
Marshal.FreeCoT askMem(data)
Catch objE As Exception
MessageBox.Show (objE.Message)
End Try
End Sub
-----
I am using an Adobe *.PFB font as shown above.
The code error on
pfc.AddMemoryFo nt(data, fontStream.Leng th)
with a 'File Not Found' message.
I am running this code on the form_load of a form that contains a crystal
report viewer and the font in question is within my crystal report. Am
assuming that as long as the font is held in memory, where ever I view the
font should display correctly.
Thx
Chubbly
"Ken Tucker [MVP]" <Ke**********@d iscussions.micr osoft.com> wrote in message
news:D9******** *************** ***********@mic rosoft.com...
Hi,
How to embed a font
http://www.bobpowell.net/embedfonts.htm
Ken
------------------------
"Chubbly Geezer" wrote:
I'm using a particular font (for credit card symbols) within a crystal
report which looks fine when I preview, however when I run the report
with
real data, the font is now shown correctly. It seems to revert back to a
standard font and displays letters instead of card symbols. Any ideas.?
Can I embed a font or include one in my VB app.?
Thanks
