Thanks a lot..
What are p1...p8 parameters for??


>I hope this helps.
>
>* prt_func.prg
>* General purpose HP utility (SHADING, RECTANGLES, ETC.)
>* All parameters must be in CHARACTER format acceptable to HP PCL compatibles
>***********************************************************
>PARAMETER p_func,p1,p2,p3,p4,p5,p6,p7,p8
>PRIVATE w_func
>w_func=UPPER(p_func)
>
>*-- Added to avoid "Printer timing out error"
>*ON ERROR *
>*EJECT
>
>DO CASE
>
> CASE w_func=='RESET' && Reset printer
> ??? CHR(27)+'E'
> CASE w_func=='FORMFEED' && Formfeed
> ??? CHR(12)
> CASE w_func=='PORTRAIT' && Portrait Orientation
> ??? CHR(27)+'&l0O'
> CASE w_func=='RPORTRAIT' && Reset + Portrait Orientation
> ??? CHR(27)+'E'+CHR(27)+'&l0O'
> CASE w_func=='LANDSCAPE' && Landscape Orientation
> ??? CHR(27)+'&l1O'
> CASE w_func=='RLANDSCAPE' && Reset + Landscape Orientation
> ??? CHR(27)+'E'
> ??? CHR(27)+'&l1O'
> CASE w_func=='LETTER' && Letter Size
> ??? CHR(27)+'&l2A'
> CASE w_func=='LEGAL' && Legal Size
> ??? CHR(27)+'&l3A'
> CASE w_func=='A4' && A4 Size
> ??? CHR(27)+'&l26A'
> CASE w_func=='PITCH10' && PITCH10
> ??? CHR(27)+'(s10H'
> CASE w_func=='RPITCH10' && Reset & PITCH10
> ??? CHR(27)+'E'+CHR(27)+'(s10H'
> CASE w_func=='PITCH12' && PITCH12
> ??? CHR(27)+'(s12H'
> CASE w_func=='RPITCH12' && Reset & PITCH12
> ??? CHR(27)+'E'+CHR(27)+'(s12H'
> CASE w_func=='COMPRESSED' && COMPRESSED
> ??? CHR(27)+'(s16.67H'
> CASE w_func=='RCOMPRESSED' && Reset & COMPRESSED
> ??? CHR(27)+'E'+CHR(27)+'(s16.67H'
> CASE w_func=='BOLD' && Bold
> ??? CHR(27)+'(s3B'
> CASE w_func=='NORMAL' && Normal
> ??? CHR(27)+'(s0B'
> CASE w_func=='6LPI' && 6 Lines Per Inch
> ??? CHR(27)+'&l6D'
> CASE w_func=='8LPI' && 8 Lines Per Inch
> ??? CHR(27)+'&l8D'
> CASE w_func=='CURSOR' && Position cursor (Rel if signed)
> ??? CHR(27)+'*p'+p1+'x'+p2+'Y'
> CASE w_func=='REC_FILL' && Gray shaded rectangle
> ??? CHR(27)+'*c'+p1+'A' && Rectangle width
> ??? CHR(27)+'*c'+p2+'B' && Rectangle height
> ??? CHR(27)+'*c'+p3+'G' && Area fill id
> ??? CHR(27)+'*c2P' && Print the shaded filled area
> CASE w_func=='REC_HATCH' && Hatched filled rectangle
> ??? CHR(27)+'*c'+p1+'A' && Rectangle width
> ??? CHR(27)+'*c'+p2+'B' && Rectangle height
> ??? CHR(27)+'*c'+p3+'G' && Area fill id
> ??? CHR(27)+'*c3P' && Print the hatched filled area
> OTHERWISE
>
>ENDCASE
>
>RETURN
>***********************************************************
>