Author Topic: MECETAK HURUF KECIL PADA PRINTER EPSON LX 80  (Read 281 times)

0 Members and 1 Guest are viewing this topic.

Offline soegeng

  • Junior Member
  • *
  • Posts: 139
MECETAK HURUF KECIL PADA PRINTER EPSON LX 80
« on: October 20, 2016, 11:36:07 AM »
Dear all master fox

Saya ada kesulitan utk mencetak huruf kecil pada printer epson lx 80
Perintah cetak saya pakai command sbb

@PROW(),5 SAY 'KODE BRG'
@PROW(),20 SAY 'NAMA BRG'
@PROW(),40 SAY 'JML'
@PROW()+1,5 SAY KODE_BRG
@PROW(),20 SAY NAMA BRG
@PROW(),40 SAY JML PICT '999'

Mohon pencerahan nya harus pakai ???Chr(..) Berapa aja ya

Thanks ya master

[edited: sorry mas soegeng; saya edit. Gimana kalau lain kali menuliskan post tidak dengan full huruf kapital?]
« Last Edit: October 21, 2016, 01:40:06 PM by foxy »

Offline xWongso

  • Newbie
  • *
  • Posts: 2
Re: MECETAK HURUF KECIL PADA PRINTER EPSON LX 80
« Reply #1 on: October 20, 2016, 12:40:23 PM »
Pak Soegeng,

Saya tidak pernah pakai epson lx-80, perintah dibawah saya pakai pada waktu program pakai clipper untuk lx-300 sampai lx 1170...jadi mohon di coba saja semoga bisa membantu

 Normal   = Chr(27)+'@'     && Return Of First Setting Value
 StrOn     = CHR(27)+'S'       && Strike Out - Cetak coret
 StrOff     = CHR(27)+'s'
 Cpi10     = Chr(27)+'P'     && Pica
 Cpi12     = Chr(27)+'M'     && Elite
 Cpi15     = Chr(27)+'g'     && Chr(103)
 Cpi17     = Chr(15)       && Compressed
 Cond      = Chr(18)             && Condensed / Normal dari Cpi17,Cpi10,Cpi12
 Cpi20     = Cpi12+chr(15)
 DwOn    = Chr(27)+'W1'    && Double Width On  chr(87)+chr(1)
 DwOff    = Chr(27)+'W0'    && Double Width Off chr(87)+chr(0)
 DblOn    = Chr(27)+'G'     && Double On
 DblOff    = Chr(27)+'H'     && Double Off
 BoldOn   = Chr(27)+'E'     && Emphasis On
 BoldOff  = Chr(27)+'F'     && Emphasis Off
 SubOn     = Chr(27)+'S1'    && SubScript On
 SubOff    = Chr(27)+'T'     && SubScript Off
 SupOn     = Chr(27)+'S0'    && SuperScript On
 SupOff    = Chr(27)+'T'     && SuperScript Off
 UndOn    = Chr(27)+'-1'    && UnderLine On
 UndOff    = Chr(27)+'-0'    && UnderLine Off
 ItaOn    = Chr(27)+'4'     && Italic On
 ItaOff      = Chr(27)+'5'     && Italic Off
 OldwOn   = Chr(14)       && One-Line Double Width On
 OldwOff  = Chr(20)       && One-Line Double Width Off
 ItaIOn   = Chr(27)+'6'     && Italic International On
 ItaIOff  = Chr(27)+'7'     && Italic International Off
 IcOn     = Chr(27)+'Rn'    && International Character On
 Nlq     = Chr(27)+'n'     && NLQ
 Gm1     = Chr(27)+'7'     && IBM-PC Graphics Mode I
 Gm2      = Chr(27)+'6'     && IBM-PC Graphics Mode II

**variable di atas biasanya saya declare di main program...
** pada waktu cetak cukup ketik : ...@prow(),pcol() say Normal

Rgds
XWongso

Offline soegeng

  • Junior Member
  • *
  • Posts: 139
Re: MECETAK HURUF KECIL PADA PRINTER EPSON LX 80
« Reply #2 on: October 27, 2016, 04:21:24 PM »
thanks ya mas wongso... sy coba nya