Replacing a System Font

Hello,
We've been having some font issues and I think I'm close to clearing them up but have a question. We use FontAgent Pro and in that, we have a Helvetica font and a Helvetica Neue font. Both of which are also System fonts. I did the Restore Standard Fonts in Font Book. I've noticed that the System font versions of those fonts actually have less fonts in them than the versions in FontAgent Pro. (i.e. condensed black oblique, the whole thin family, etc...) So my question is can I replace the System Font versions with my FontAgent versions and if so, how do I do it without screwing up the system.
Thanks in advance,
Randy

So you've got full Type 1 PostScript sets you'd prefer to use all the time. There are some problems with this, but not impossible to deal with.
You may find the information in my article Font Management in OS X useful. In the section on minimum required fonts for the various versions of OS X, I have this information on Lion, which also applies to 10.8 and 10.9.
Previously, you could remove Apple's Helvetica fonts and permanently use Type 1 PostScript versions in their place. Not any more. Address Book is one app which will not launch if Apple's version of Helvetica is missing. So for prepress, designers or others who must use Type 1 PostScript versions of Helvetica or Helvetica Neue, it is now a requirement to copy Apple's Helvetica fonts to a non Fonts folder location, remove them from the System and ProtectedFonts folders, and then set up separate sets in your font manager for Apple's Helvetica fonts, and another for your third party Helvetica fonts. Then turn on whichever set you need at the time and turn the other set off. It's not perfect as you may need the the Type 1 fonts open, which will leave you temporarily unable to open Address Book until you disable the Type 1 fonts and turn the Apple supplied versions back on. There is no way around it. You simply can't have both on at the same time.
Instructions for copying, and then removing the Apple supplied versions of Helvetica are noted in section 5. That's pretty much what you'll have to do in order to have access to your full set of T1 PS fonts.
I may receive some form of compensation, financial or otherwise, from my recommendation or link.

Similar Messages

How to replace system fonts with type 1 version

Can system font Helvetica be replaced with the PostScript Type 1 (Older) Version?
Can a system font be deleted?
System: iMac 2012, OS X 10.8.2, Output Device: PostScript Level 1 Imagesetter
We are trying to pring Helvetica to a PostScript Level 1 device
and do not want to convert system font to outlines in Illustrator in order to print
to our output device as we would loose all editing capabilities.
Our device will not accept TrueType or OpenType fonts only Type 1 fonts.
Please explain if possible

Same problem! The only solution I found is to prepare a textbox in a new file with all the font you need. Copy and past in the file you need to change font. Go to type/risolve missing font. Will open the same window in the pic you pasted. Then you find the font in the dropdown menu. I have to change all the Helvetica family ...it's a long go. If some one could save me. Hope to be usefull to your problem.

System font ZOCRB10 120 Bold does not exist

Hi all expert,
Our basis has been uploaded the Font file with the Font name 'ZOCRB10', and replaced the Font name 'OCRB1' with
'ZOCRB10' in the SAP script, but when I update the form 'Z9INVOICEFR' with the new font 'ZOCRB10', it still does't have
the bold font.
It appears the error 'System font ZOCRB10 120 Bold does not exist' ,
How to resolve the issue ?
Thanks & Best Regards,
Michael
Edited by: Michael Hong on Aug 25, 2010 2:51 PM

Hi, did you read Note 606923 - FAQ: SAPscript/Smart Form: Fonts?
Maybe the note could help you
Regards,
Fabrizio

Missing system font?

Hello,
please have a look at
screenshot.png.
The font in the property boxes (I don't know the exact name
of these elements) in DW 2004 is pixelized.
How could this happen? Which system font uses DW?
Greetings, Carlos

You can compare the fonts you still have to this list:
http://docs.info.apple.com/article.html?artnum=301332
If any of the critical system fonts are missing, you should be able to use something like "pacifist" to extract the missing fonts from your OSX install disks and replace them. Font problems can cause all manner of strange behavour.

FontExplorer X Pro corrupting system fonts (mainly Helvetica)

Yosemite, Clean Install
I recently installed a trial of FontExplorer X Pro because I thought it was about time I moved up to a professional font management tool. Shortly after installing it, and importing my fonts, things started to go haywire. As you can see below, Messages.app, websites (GoDaddy.com pictured) and Mail.app display a strange A-in-a-box character in place of what should be actual, legible copy. I have been trying to work with FontExplorer's tech support but they have been unhelpful so far, not to mention it takes them days to respond. I believe I've (so far) narrowed this down to HELVETICA and I'm sure it has something to do with Mac OS X now using Helvetica Neue throughout the System in place of what used to be Lucinda I believe
I'm just at a loss for what to do. I can't seem to get my system fonts back in order. I've tried uninstalling the software, and starting over, and nothing has helped. I can clear the Font Cache, restart, and then everything is fine...but as soon as I open a document with Helvetica Neue in it, everything else goes haywire again. Deactivating Helvetica Neue is not an option. I am a graphic designer, I need Helvetica for nearly everything.
I would appreciate any suggestions at all, thank you.
Messages.app: The timestamp is replace with these characters.
Safari/Godaddy.com: All the text in the login area are the same character.
Again, in Mail.app, this contact's signature is completely unreadable.

Anyone? No one from Linotype has been able to answer my questions either.
Like I said, the problem started after I upgraded from 10.6.6 to 10.6.8. The same issue occurs on 2 different computers both running 10.6.8, even though one of them is a fresh install.
I've tried resetting the FontBook by booting into Safe Mode, but even that doesn't fix it. However I'm now able to add metadata and create sets, but only for system fonts (i.e. anything with a lock icon).

Bizarre system font behavior

My PB G4 15" running Tiger has become nearly unusable. The bizarre behavior is that the words in the topmost menu have replaced every letter with a capital "A" surrounded by a box. So the top of my screen has the exact number of letters for each menu item and can drop down the appropriate list, but that list is also filled with words spelled by the same image, an A with a box around it. My desktop icons also have unreadable names. Also, when in Finder, the names of files and folders have same thing, as well as contextual menus.
However, in Finder List view, I can see the names of files and folders. Also, some dialog boxes are unreadable but others aren't. I can use applications, but just can't read the menu bar when they're up.
I would archive and reinstall, but I've lost my Tiger DVDs to Katrina. I've run disk first aid from my older 10.3 and it repairs although it noted improper leaf issues. I thought maybe a different system font was used for those items compared to different system fonts for other items (ie, why can I see names in list view but not icon or navigator view?). Cleared font cache.
Anybody have a clue about how to fix this without booting from Tiger CD. Hate to buy the thing twice. Already have to replace a house.

It sounds like you're missing a System font required for proper display of the Finder. Here are all the fonts that Mac OS X requires:
Apple LiGothic Medium.dfont
AppleGothic.dfont
AquaKanaBold.otf
AquaKanaRegular.otf
Courier.dfont
Geneva.dfont
Helvetica.dfont
Keyboard.dfont
LastResort.dfont
LucidaGrande.dfont
Monaco.dfont
Osaka.dfont
OsakaMono.dfont
Symbol.dfont
Times.dfont
ZapfDingbats.dfont
They're located in /System/Library/Fonts; if you are missing any of them, you need to get them back. If Apple will replace the Tiger DVDs free, you can download a copy of Pacifist and use it to hunt through the install packages to find the individual fonts you're missing and reinstall them. Pacifist is here:
http://www.charlessoft.com/
If Apple won't replace your Tiger DVDs, then you might be able to borrow them from a friend, or else you'll have to pay for another retail copy.
Mulder

[AS][CS5] Find and replace a missing font

I have an overly complex script that compares the document's fonts missing fonts to the system fonts and makes a best guess. It was written to handle conversion of Multi-ad Creator documents to InDesign. It has worked 100% of the time so far. It needs a LOT of cleaning up and tweaking to make effecient, but that is not the point of my question. Everyday I am sent an InDesign file I have to work with and everyday it will has a missing font. Arial (OTF).
I ran my script thinking it would replace it with Arial (TT). No problem...
Ran it... nothing.
When I use the find dialog in Indesign to search based on the applied font it works, the returned properties in AS contain:
return properties of find text preferences
font:"Arial (OTF)"
Ok, fine so I try...
set properties of find change text options to {case sensitive:false, whole word:false, include footnotes:false, include hidden layers:false, include locked layers for find:true, include locked stories for find:true, include master pages:true}
    set applied font of find text preferences to "Arial (OTF)"
    set applied character style of change text preferences to "Page&Header"
    tell document 1
        set myFoundItems to change text
    end tell
Nothing.
This has pretty much worked on every other font I've tried, so what am I doing wrong here?

All right, back at it....
I've run into even more fonts that it is an issue with. My basic thoughts on this are as follows: When bringing a document from Multi-ad Creator to InDesign the fonts are named in a way that InDesign does not recognize them. The thing is those fonts are really fonts that are on my system. It is simply a matter of rearranging the name of the applied font to match what InDesign would recognize. The thing is InDesign will allow me to use Find/Change to modify the fonts in the document.
Now the fonts I've run across that give me an issue are fonts that do not correspond to any font on my system. I do not have any TrueType fonts, this document I opened today did...
tell application "Adobe InDesign CS5.5"
    set myDocument to active document
    tell myDocument
        set myPage to page 1
        return properties of every font
    end tell
end tell
{{font family:"Helvetica (TT)", PostScript name:"Helvetica-Bold", parent:document id 34 of application "Adobe InDesign CS5.5", index:1, name:"Helvetica (TT)     Bold", object reference:font "Helvetica (TT)     Bold" of document id 34 of application "Adobe InDesign CS5.5", status:not available}, {font family:"Helvetica (TT)", PostScript name:"Helvetica", parent:document id 34 of application "Adobe InDesign CS5.5", index:0, name:"Helvetica (TT)     Regular", object reference:font "Helvetica (TT)     Regular" of document id 34 of application "Adobe InDesign CS5.5", status:not available}, {font family:"Times (TT)", PostScript name:"Times-Bold", parent:document id 34 of application "Adobe InDesign CS5.5", index:3, name:"Times (TT)     Bold", object reference:font "Times (TT)     Bold" of document id 34 of application "Adobe InDesign CS5.5", status:not available}, {font family:"Times (TT)", PostScript name:"Times-Roman", parent:document id 34 of application "Adobe InDesign CS5.5", index:0, name:"Times (TT)     Regular", object reference:font "Times (TT)     Regular" of document id 34 of application "Adobe InDesign CS5.5", status:not available}}
Ok, so let me try this (commented out are the different ways I've tried):
tell application "Adobe InDesign CS5.5"
    set myDocument to active document
    tell myDocument
        set myPage to page 1
          --return properties of "Helvetica (TT)" --"Helvetica (TT)     Bold"
        return properties of font "Helvetica (TT)" -- "Helvetica (TT)   Bold"
        set myDocumentFonts to name of every font
    end tell
end tell
Adobe InDesign CS5.5 got an error: Unable to retrieve the font's UID from its name.
I was able to get the properties of the font using:
return properties of every font whose PostScript name is "Helvetica-Bold"{font family:"Helvetica (TT)", PostScript name:"Helvetica-Bold", parent:document id 34 of application "Adobe InDesign CS5.5", index:1, name:"Helvetica (TT)     Bold", object reference:font "Helvetica (TT)     Bold" of document id 34 of application "Adobe InDesign CS5.5", status:not available}
Now I thought of trying the following:
tell application "Adobe InDesign CS5.5"
    set find text preferences to nothing
    set change text preferences to nothing
    --Set the find options.
    set properties of find change text options to {case sensitive:false, whole word:false, include footnotes:false, include hidden layers:false, include locked layers for find:true, include locked stories for find:true, include master pages:true}
    set applied font of find text preferences to every font whose PostScript name is "Helvetica-Bold"
    set applied font of change text preferences to "Helvetica"
    tell document 1
        set myFoundItems to change text
    end tell
end tell
Now this does result in something, the find of the Find/Change dialog is looking for Helvetica + Bold. The only problem with that is it isn't looking for the TT font.
tell application "Adobe InDesign CS5.5"
    set myDocument to active document
    tell myDocument
        set myfind to properties of every font whose PostScript name is "Helvetica-Bold"
    end tell
    set find text preferences to nothing
    set change text preferences to nothing
    --Set the find options.
    set properties of find change text options to {case sensitive:false, whole word:false, include footnotes:false, include hidden layers:false, include locked layers for find:true, include locked stories for find:true, include master pages:true}
    set applied font of find text preferences to name of myfind
    set applied font of change text preferences to "Helvetica"
    tell document 1
        set myFoundItems to change text
    end tell
end tell
And nothing happens.. other than it trying to search for Helvetica + Bold
I'll try some other ideas later when I have more time.

How to embed/apply a system font to an entire PDF

How can I embed/apply a system font to an entire PDF so that I can freely reword a document?
I am reading a highly technical document. The best way for me to understand it is to replace complex words with synonyms and definitions that I understand. The best way to do this is with the TouchUp tool, but I'm getting the "no available system font" error. By default the touch up tool will select a line of text that you can then right click -> properties and select a font to embed to correct this error.
I need to apply this process to the entire document, not just one line. Somehow I accidently managed to apply this process to a full page of text, but I do not know the details of what I actually did. So I know it is possible to do this to at least large chunks of text.
Please advise.

The quick and dirty way would be to open up a New document in Microsoft Word, then using the Text Select tool (next to the Hand Tool in the toolbar) copy and paste into Word, make your edits, then convert or print to PDF. That's best if the document is a few pages.
Another way is to convert the document to Microsoft Word using the command File > Save As > Microsoft Word > Word document. It should preserves any tables, graphs and equations, and you should be able to easily edit it. You could even substitute the fonts with what you have on your system. Then convert it back to PDF.
A third way is in Acrobat. It is the Edit Object tool. This is where Acrobat would send you to Adobe Illustrator to revise the text. It's much more work since the text might have to be reformatted...and I think you might want to try the Word method first.
You can now understand why the conventional wisdom is to use the source document. Acrobat at this point is for minor edits, and enhancements, page numbering headers and footers.
Acrobat XI coming out in about 30 days is going to have far better editing capabilities, so you may want to consider that if you are going to be doing this often.
Gene

[SOLVED] How to reset system font settings

HI All,
In my efforts to get decent looking fonts, I have somehow ended up with a system where the fonts are always sub-optimal no matter what I do. I installed DejaVu-ttf and also the Infinality font set.
I'm not sure how Infinality is supposed to work, but the impression I got from reading instructions is that it is a drop-in replacement of the system fonts, but now that I have mucked with things too much I'm not sure I'm seeing the best result I can get.
Is there a way to just reset my KDE font config to the default (hopefully without resetting my entire desktop)?
Thanks,
Chris
Last edited by cgrif (2013-07-20 04:20:06)

Thank you Boohomil,
I set up the .Xresources with the code you included, but even if I xrdb it directly, I cannot see the xft stuff in the output of env. Not sure what's wrong with that.
However, I set up everything else the way you recommended and things are looking a bit better. I actually have messed with the KDE font settings, but following cfr's advice, I just set everything to Liberation as in the xml code.
For some reason the fonts look much better when I run Gnome than KDE, which bothers me immensely. I moved to Arch because I want to learn to have control of everything, but it looks like I'm kind of stuck on the fonts! No worries, I'll keep chipping away at it as I have time.
Thanks a lot,
Chris
bohoomil wrote:
First of all, I'm not sure what your KDE font settings look like. I believe you've left everything as is, so open your control panel and duplicate the values from /etc/fonts/conf.d/10-base-rendering.conf in the appropriate section. This should include hintstyle=slight, antialias=true, subpixel order=rgb, dpi=96. You may try using hintstyle=full if necessary.
Next, check your xft settings. You should see the following:
$ env | grep Xft
Xft.antialias: 1
Xft.autohint: 0
Xft.dpi: 96
Xft.hinting: 1
Xft.hintstyle: hintfull
Xft.lcdfilter: lcddefault
Xft.rgba: rgb
If the output is different, put the values above to your .Xresources file and make sure it gets loaded with your desktop. This should basically duplicate the values you have already set in your KDE control panel.
Next, check if your fontconfig settings are loaded properly. Simply run 'env | grep INFINALITY' and if you get a list of entries starting with INFINALITY_FT_, then everything is OK.
Finally, try changing your default fonts. DejaVu is fine as a backup family, but using it as a base one is not a good idea. If you have access to Win 7/8 fonts, use them. If not, check Liberation, ChromesOS or Droid families. Install them all and set the defaults in $HOME/.config/fontconfig/conf.d/65-latin.conf:
<?xml version="1.0"?>
<!DOCTYPE fontconfig SYSTEM "fonts.dtd">
<fontconfig>

<alias>
<family>serif</family>
<prefer>
<family>Liberation Serif</family>
</prefer>
</alias>

<alias>
<family>sans-serif</family>
<prefer>
<family>Liberation Sans</family>
</prefer>
</alias>

<alias>
<family>monospace</family>
<prefer>
<family>Liberation Mono</family>
</prefer>
</alias>
</fontconfig>
If you are going to use Windows fonts and don't want to change anything, you don't need this file. By the way, you can find it along with other examples in the infinality-bundle documentation.

System fonts conflict

Hi there, I own an AD agency with a few of these leopards running... I had 2 major issues:
1. adobe virtual printer pausing and unable to distill a PDF file out of word.
2. a terrible font conflict due to the overlapping presence of the Helvetica Neue in the system folder and in Suitcase Fusion where the "System Font ovverride" option is checked...
Spent the whole day struggling would be great to share with someone.

I share your pain, but haven't found a solution.
I have a design firm. I’ve installed Leopard on my Macbook Pro 17 without incident, as a pretrial before installing it on my working studio machines.
It appears that Leopard now includes Helvetica Neue and Helvetica (not so Neue) in the primary system fonts folder. The addition of Helv Neue to this folder is new with Leopard.
These fonts are now triggering eleven conflict message windows (one for each flavor of font) when Font Agent Pro is used to fire up the Adobe versions of these fonts (upon which I rely heavily in my design business). These warnings have to be closed one by one. Once my Adobe fonts are loaded, there are all kinds of anomalies in the Apple apps that use these fonts, including Safari, Mail many widgets, iCal and so on.
Any attempt to remove these fonts from the system folder results in their automatically being replaced. It’s as though the computer is telling me that “resistance is futile”.
We have hundreds of documents where Helvetica Neue or Helvetica are part of the design. Leopard will be a non starter in the design shop if we can’t beat this. I thought Apple knew they had a strong presence in the design industry. This is bone-headed planning on their part!

Deleted System Font - Arial

Is there a way to re load the original system fonts back into Mac? And how I might go about doing that?
I have deleted duplicate fonts on my system using Font Book. I've now realized that other software, in this case, Photoshop and Word, do not automatically default link to the remaining font type file (the duplicate not deleted), but instead hunt around like an active torpedo and find the next closest font to assign.
You would think, no big deal, just highlight and re assign the font. But for some reason this is not working in Word.
Thank you for your support. I'm now writing a report due today with the Flinstone Font instead of Arial !!!
Mark Fanjoy

Hi hyla9 canuck,
WIthout the Multiple Master fonts, Preview will have issues. In particular, with the display of PDF files. Not sure what else the absence of those may affect. Without Apple Gothic, some CDs or DVDs may not open. That's one issue I found regarding that font anyway.
Apple may still have system disks on hand you can order. Go to the upper left, click on the Apple logo and then choose About This Mac. Where it says what version of OS X you're running, click on that. It will rotate between the OS version, the build number, and that Mac's serial number.
Call 1-800-MY-APPLE and let them know you need replacement disks. I think it's about $20 for a set. They'll ask for the serial number to make sure you get the correct disks. Then you'll have what you need to reinstall all of the original software that Mac came with.
Not sure if you knew this, or the seller informed you, but you will be stuck at Leopard, 10.5.x. A G5 has a PowerPC CPU, so cannot use any version of OS X newer than Leopard. It also of course cannot run any software which is only for Intel based Macs.

Moved system fonts now MacBook Pro won't start.

I have an early 2011 MacBook Pro running OS10.9.x and in an attempt to troubleshoot another issue I moved all the system fonts into a folder on the desktop. I didn't delete the font folder, just moved the fonts. When I went to restart the computer all it would do is flash between a white and gray screen and randomly display a progress wheel but won't start up.
Thanks for any help on how to resolve the issue.

Restart the computer with the Command and S keys held down and run the following, replacing the bold text:
mount -uw /
mv /Users/username/Desktop/foldername/* /System/Library/Fonts/*
exit
(117771)

After removing system fonts and reinstalling fonts, FireFox will not start

After removing system fonts and reinstalling fonts, FireFox will not start! When I start FireFox the "Mozilla Crash Reporter" opens as if FF just crashed??? I don't see any records in event viewer. I am using FF v3.6.3 on a Windows 7 box. I tried uninstalling 3.6.3 and installing 3.0.18 and had the same problem!
== This happened ==
Every time Firefox opened
== After a uninstalled all fonts including system fonts and then reinstalling system fonts. ==
== User Agent ==
Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; GTB6.4; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; AskTB5.5)

The files with submitted crash report ids are inside the ''submitted '' directory, from the directory you found the LastCrash.txt timestamp file.
The file names will begin with '''bp-'''
There might be more information from the crash report, but it might just tell us you are crashing the first time Firefox tries to use a font.
One thing I suppose you could do is select only those fonts you've got in Tools -> Options -> Content -> Fonts and Colors -> Advanced and then uncheck the '''Allow pages to use their own fonts''' option.
See http://support.mozilla.com/en-US/kb/Options+window+-+Content+panel#Fonts_Dialog
To be honest, I can't find anything on this Netscape Font Navigator and it sounds highly dubious.

How do i make system fonts look better?

i am attempting to use univers, which is a system font and so exports as an image. i am using it at a larger size. when i preview in browser, it looks choppy. is there a way to make these system fonts less so, closer to the regular look of web safe fonts? thank you.

The short answer is set an opaque background fill on the text frame (it can be a solid color, gradient or background image).
When the browser or OS is drawing live text, it has the benefit of knowing the exact color of every pixel that will be behind the edges of the text and it uses this knowledge to adjust the colors of the edges of the text to smooth the appearance—a process called anti-aliasing.
When Muse is creating an image for a System Font in a text frame with a no fill (or a semi-transparent fill), Muse can't know with certainty exactly what colors will be behind the text. Therefore Muse uses a "grayscale" version of anti-aliasing. Grayscale anti-aliasing provides a better appearance than the hard stair steps of no anti-aliasing, but the end result is inferior to the color anti-aliasing that's possible when the background pixel colors are known and opaque.

Setting for "Rely on system fonts" does not work

Hello,
Some time ago I wrote a VBA function that would print a worksheet to pdf. It worked great. I reformatted my system, and now the code no longer works. When I run the routine, I receive the error message, "When you create a PostScript file, you must reply on system fonts and use document fonts. Please go to the printer properties, 'Adobe PDF Settings' page and turn OFF the option 'Rely on system fonts only; do not use document fonts."
I have changed this setting within the Adobe printer setting in Excel, I have changed it in both the 'Printing Preferences" and "Printer Properties" with the Devices and Printers Windows dialog, and I have confirmed that it is turned off in the binary registry key "HKEY_CURRENT_USER\Printers\DevModePerUser\Adobe PDF". Also, I have applied the Acrobat 9.4.2 patch. Yet still I get the message when my code is executed....
There were a few changes between my system from before my reformatting. The common items were Windows7 64-bit, Adobe Acrobat 9. The changes were that I went from Microsoft Office 2010 64-bit to Office 2010 32-bit. Windows 7 SP1 is now installed. Also, both Acrobat and Office are installed on my internal "Data" drive, rather than the "C" drive where my operating system is installed.
Although I do not see an issue with code, since it worked for months, I have included it below (the printing code is at the end). Any help would be GREATLY appreciated!
Public Sub EnumOrder(ByVal lngLine As Long)
'lngLine is the line number to start enumeration at
Dim strStore As String
Dim strFileName As String
Dim strTmpPath As String
Dim strPDFPath As String
Dim c As Long
Dim x As Long
Dim lngErr As Long
Dim wsPicklist As Worksheet
Dim wsTemplate As Worksheet
Dim oPDF As PdfDistiller
Set oPDF = New PdfDistiller
Set wsPicklist = Worksheets("Phase II Picklist")
Set wsTemplate = Worksheets("Template")
strStore = wsPicklist.Cells(lngLine, 1).Value
' Clear formatted border on order template
wsTemplate.Activate
wsTemplate.Range("A7:L56").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
wsPicklist.Activate
' Initialize variables
strFileName = wsPicklist.Cells(lngLine, 1) & "-" & wsPicklist.Cells(lngLine, 2) & " " & Format(wsPicklist.Cells(lngLine, 4), "mm-dd-yy") & " Team" & Format(wsPicklist.Cells(lngLine, 3), "00")
c = 7
x = lngLine
' Add store order data to the template
With wsTemplate
    ' Add header data to the order template
    .Cells(1, 2) = wsPicklist.Cells(lngLine, 1) ' Store #
    .Cells(2, 2) = wsPicklist.Cells(lngLine, 3) ' Team #
    .Cells(4, 2) = wsPicklist.Cells(lngLine, 4) ' Deliver By
    .Cells(1, 5) = wsPicklist.Cells(lngLine, 13) ' Ship To Name
    .Cells(2, 5) = wsPicklist.Cells(lngLine, 14) ' Ship To Address
    .Cells(3, 5) = wsPicklist.Cells(lngLine, 15) ' Ship To City/State/Zip
    .Cells(4, 5) = wsPicklist.Cells(lngLine, 16) ' Comment
    ' Add line items to the order template
    Do
        .Cells(c, 1) = wsPicklist.Cells(lngLine, 6) ' Part #
        .Cells(c, 2) = wsPicklist.Cells(lngLine, 7) ' Part Name
        .Cells(c, 7) = wsPicklist.Cells(lngLine, 8) ' Qty Ordered
        wsPicklist.Cells(lngLine, 10) = Now         ' Date Printed
        wsPicklist.Cells(lngLine, 11) = strFileName ' File Name
        lngLine = lngLine + 1
        c = c + 1
    Loop While strStore = wsPicklist.Cells(lngLine, 1)
End With
'Create formatted borders on store order template
x = lngLine - x + 6
wsTemplate.Activate
wsTemplate.Range("A7:L" & x).Select
With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
    .LineStyle = xlContinuous
    .ColorIndex = xlAutomatic
    .TintAndShade = 0
    .Weight = xlThin
End With
' Print the store order to PDF
strTmpPath = "D:\Eric\Desktop\WIS-Speedway\Phase II\Picklists\New\Tmp\"
strPDFPath = "D:\Eric\Desktop\WIS-Speedway\Phase II\Picklists\New\"
wsTemplate.PrintOut copies:=1, preview:=False, _
ActivePrinter:="Acrobat Distiller", printtofile:=True, _
collate:=True, PrToFileName:=strTmpPath & strFileName & ".ps"
oPDF.FileToPDF strTmpPath & strFileName & ".ps", strPDFPath & strFileName & ".pdf", ""
' Set active cell to next store order
wsPicklist.Activate
wsPicklist.Cells(lngLine, 10).Select
End Sub

Ok, I have given up the ghost on this problem. I found a MUCH better solution to the problem that I was having, that also has the side benift of processing far faster. See http://msdn.microsoft.com/en-us/library/ee834871(office.11).aspx for details. Basically, I am now using the VBA ExportAsFixedFormat method, rather than Distiller. Hope this helps.

Replacing a System Font

Similar Messages

Maybe you are looking for