Upc codes in Pages document

Question

I have a requirement to scan the UPC code on a product (with a handheld laser scanner) and have that UPC print on a Pages document.
So far I've installed a UPC font, but the code that is generated from the scan is not scannable when the document is printed out. 
Question:  How do I get what I'm scanning to be represented properly by the UPC font? Or is this not doable?
Any helpful suggestions would be greatly appreciated.
-GMO

Answer 1

An AppleScript could perform the "ton of gyrations" for you.
If the scan produces a twelve digit number, with no hyphen in the middle, and you copy it to the clipboard, then running this script:
--Have the twelve digits from the scan on the clipboard
set raw_list to characters of (the clipboard as text)
set code_list to item 1 of raw_list as list
set blue_code to characters of "qwertyuiop"
set red_code to characters of "asdfghjkl;"
set Green_code to characters of "zxcvbnm,./"
repeat with i from 2 to 6
  my mydecode(blue_code, (item i of raw_list))
  set end of code_list to result
end repeat
set end of code_list to "-"
repeat with i from 7 to 11
  my mydecode(red_code, (item i of raw_list))
  set end of code_list to result
end repeat
my mydecode(Green_code, (item 12 of raw_list))
set end of code_list to result
set the clipboard to code_list as text
on mydecode(alist, anum)
  if (anum as number) = 0 then
  return item 10 of alist
  else
  return item (anum as number) of alist
  end if
end mydecode
--end of script
will place a string of characters on the clipboard that will display as the barcode in the CarolinaBarUPC font. (In Pages '09, on Snow Leopard, at any rate.)