PC Toledo

Código: Selecionar todos

CT~~CD,~CC^~CT~
^XA
~TA000
~JSN
^LT0
^MNW
^MTT
^PON
^PMN
^LH0,0
^JMA
^PR4,4
~SD15
^JUS
^LRN
^CI27
^PA0,1,1,0
^XZ
^XA
^MMT
^PW799
^LL799
^LS0
^FT48,149^A0N,77,76^FH\^CI28^FDTexto^FS^CI27
^BY3,3,160^FT143,481^BCN,,Y,N
^FH\^FD>;123456789012^FS
^PQ1,0,1,Y
^XZ

Código: Selecionar todos

set console off
  set printer on
  set device to printer
  setprc(0,0)

  enter=chr(13)+chr(10)
  @ prow(),pcol() say 'JF'+enter
  @ prow(),Pcol() say 'q832'+enter
  @ prow(),Pcol() say 'Q207,17'+enter
  @ prow(),Pcol() say 'R0,0'+enter
  @ prow(),Pcol() say 'D12'+enter
  @ prow(),Pcol() say 'N'+enter
  @ prow(),Pcol() say enter
  
  mempr:="EMPRESA MODELO"
  mcodi:=alltrim(codi)
  mnome1:=left(nome,22)
  mnome2:=alltrim(substr(nome,23))
  @ prow(),Pcol() say 'A55,25,0,1,1,2,N,"'+mnome1+'"'+enter
  if !Empty(mnome1)
     @ prow(),Pcol() say 'A55,52,0,1,1,2,N,"'+mnome2+'"'+enter
  endif
  @ prow(),Pcol() say 'B55,85,0,3,1,4,65,B,"'+mcodi+'"'+enter
  
  @ prow(),pcol() say 'JF'+enter
  set printer off
  set printer to
  set device to screen