SQR to print Pie charts

["Huss, Robert" <Robert_Huss@BAUSCH.COM>]

All-

Has anyone ever written, modified or know of any sqr's
that create a chart of some kind. Specifically I am
looking to create a pie chart from within an sqr. I
have found an example program that is below,
but I can not seem to get the sqr to output a chart.
When printed the outout is meaningless characters
(i.e. sending Postscript to a non Postscript printer).
I have tried printing the sqr to the printer which I
thought was a Postscript printer, but this did not
work either. I tried changing the printer type to HP (commented out line)
Any help would be appreciated. Thanks.

SQR/4.3.2/PC/Windows NT 4.0/Oracle 7.3.4/Sep 14 1998
Win 95
Oracle
PeopleSoft 7.53

Code
---------
! SQRPie  Demonstrate SQR v3.0 pie graph commands
!         To print this report to an HP, use the following:
!         sqr sqrpie / -printer:hp
!
Begin-Setup
 Declare-Layout SQRPie
  Orientation=Portrait
  Left-Margin=.95  Top-Margin=.75
  Max-Lines=62     Max-Columns=80
 End-Declare
 Declare-Report SQRPie
  Layout=SQRPie
  !Printer-Type=Postscript
  Printer-Type=HP
 End-Declare
 Create-Array Name=emp_sales Size=4
   Field=emp:char Field=jun_sales:number:3
End-Setup

Begin-Program
 Graphic (1,1,66) Box 58 20  ! Draw box around whole page.
 Alter-Printer Font=5 Point-Size=30
 Print 'SQR Goes Graphic!!' (3,17)
 Print 'SQR Goes Graphic!!' (57,17)
 Put 'Claire' 50
    into emp_sales(0) emp jun_sales(0)
 Put 'Evan' 25
    into emp_sales(1) emp jun_sales(0)
 Put 'Jacob' 38
    into emp_sales(2) emp jun_sales(0)
 Put 'Madeline' 45
    into emp_sales(3) emp jun_sales(0)

 Print-Chart (5, 3)
   Chart-Size = (40, 12)
   Type = pie
   Legend = no
   Title = 'MidWest Sales for June'
   Sub-Title = '(Sales by Employee)'
   Data-Array-Row-Count = 4
   Data-Array-Column-Count = 2
   Data-Array = emp_sales

 Alter-Printer Font=5 Point-Size=12
 Print 'Pie Graph Features in SQR' (10,45)
 Print '- 3D '            (+1,47)
 Print '- Exploded Segments' (+1,47)
 Print 'Here is the SQR program that produced this page:' (18, 17)
 !  Draw shaded box with vertical line to create two columns
 Graphic (20,2,64) Box 35 10 4   ! Box with 4 percent shading
 Graphic (19,33,35) Vert-Line 4
 Alter-Printer Font=5 Point-Size=7
 Open 'sqrpie.sqr' As 1 For-Reading Record=200
 Let #Line = 20
 Columns 3 34
 While 1
    Read 1 Into $Rec:200
      If #End-File
         Break
      End-If
    Print $Rec (#Line,1)
    Add 1 To #Line
    If #Line > 54
       Next-column
       Let #Line = 20
    End-If
 End-While
 Close 1
End-Program
-------------------

Robert Huss
robert_huss@bausch.com


EMAIL DISCLAIMER

Please Note: The information contained in this message may be privileged and
confidential, protected from disclosure, and/or intended only for the use of
the individual or entity named above. If the reader of this message is not
the intended recipient, or an employee or agent responsible for delivering
this message to the intended recipient, you are hereby notified that any
disclosure, distribution, copying or other dissemination of this
communication is strictly prohibited. If you received this communication in
error, please immediately reply to the sender, delete the message and
destroy all copies of it.

Thank You