By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,087 Members | 1,513 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,087 IT Pros & Developers. It's quick & easy.

Font question

P: n/a
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
Dec 21 '05 #1
Share this Question
Share on Google+
3 Replies


P: n/a
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

Dec 21 '05 #2

P: n/a
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 frmCrystalViewer_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Try

Dim pfc As New PrivateFontCollection()

'load the resource

Dim fontStream As Stream =
Me.GetType().Assembly.GetManifestResourceStream("W ARCSubscriptionsLetterGenerator.TRPI____.PFB")

'create an unsafe memory block for the data

Dim data As System.IntPtr = Marshal.AllocCoTaskMem(fontStream.Length)

'create a buffer to read in to

Dim fontdata() As Byte

ReDim fontdata(fontStream.Length)

'fetch the font program from the resource

fontStream.Read(fontdata, 0, fontStream.Length)

'copy the bytes to the unsafe memory block

Marshal.Copy(fontdata, 0, data, fontStream.Length)

'pass the font to the font collection

pfc.AddMemoryFont(data, fontStream.Length)

'close the resource stream

fontStream.Close()

'free the unsafe memory

Marshal.FreeCoTaskMem(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.AddMemoryFont(data, fontStream.Length)

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**********@discussions.microsoft.com> wrote in message
news:D9**********************************@microsof t.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

Dec 22 '05 #3

P: n/a
For such a Crystal report related question, you may get support from:

http://support.businessobjects.com

Luke

Dec 23 '05 #4

This discussion thread is closed

Replies have been disabled for this discussion.