[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

[sqr-users] Garamond Font



I am trying to create a report using Garamond font.  I have added the
following line to my sqr.ini file.  I specify font 18 in the
declare-printer statement.  Why does my output file look like Arial font
instead of Garamond?  (My little test SQR program is below) 

Sqr.ini
[Fonts]
...
18=Garamond,proportional


begin-setup
  
  #define ColR 305  !Column # referenced by Standard Headings

  #define PAGE_MAX_COLS    325
  #define PAGE_MAX_LINES   78 
  
  
   declare-layout DEFAULT
    paper-size =(LEGAL)
    orientation=LANDSCAPE
    left-margin=0.5
    top-margin =0.5
    max-columns={PAGE_MAX_COLS}
    max-lines  ={PAGE_MAX_LINES}      
    line-height=7.2              ! 72/printer_point-size
    char-width =2.88             ! points, to handle max cols
  end-declare

  declare-printer HP-definition
    type=hplaserjet
    symbol-set=0U                 ! ASCII symbol set
    point-size=6     
    pitch=25                    
    font=18                     
  end-declare
  
    declare-report DEFAULT
     layout=DEFAULT
     printer-type=hp
  end-declare
  
end-setup

  
begin-program
  
    do Print-Test-Page
end-program
  
  
begin-procedure Print-Test-Page

  while #colDec <  {PAGE_MAX_COLS} / 10
    let $prtstr = $prtstr || edit(#colDec, '0000000009')
    add 1 to #colDec
  end-while
  let $prtstr = '0000000000' || ltrim($prtstr, '0')
  print $prtstr (1,1)    

  print '1234567890' (2, 1, {PAGE_MAX_COLS}) fill
  let #line = 3
  next-listing
  while #line < {PAGE_MAX_LINES}
    print #line (1,1) edit 99                   
    let #line = #line + 1
    next-listing
  end-while

 
end-procedure


  
Thanks.


Gina Bencke
FCE Reports Team

FCE office (216) 416-3492
cell phone  (440) 479-9961
home office (440) 519-0060
email: ginabencke@forestcity.net;gina@bencke.com

_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users