SET DEVICE TO printer
SET PRINTER TO \shkunwin\tmp.prn
L=1
@0,0 say CHR(27)+"M"
@1,0 say CHR(15)+TRIM(setup.tin)
@1,25 say TRIM(setup.phone)
@3,0 say coname
@4,0 say cocity
@5,0 say '--------------------------------'
@6,0 say "Sr. Description      Qty   Value"
@5,0 say '--------------------------------'
L=6
noo=vbillno
DO WHILE vbillno=noo AND NOT EOF()
@L,0 say srr pict '999'
@L,4 say SUBSTR(sdisc,16)
@L,21 say weight pict '999'
@L,24 say vamt pict '9999999.99'
SKIP
ENDDO
SET PRINTER TO 
RUN view \shkunwin\tmp.prn
