Selasa, 05 Juli 2011

[belajar-access] Re: Bagaimana cara print ke lx-300 dgn ukuran font 8

 


Print #1, Chr(27) + Chr(Asc("t")) + Chr(Asc("1")) ' tabel karakter
PC437
Print #1, Chr(27) + Chr(Asc("P")) 'pitch 10
Print #1, Chr(27) + Chr(Asc("M")) 'pitch 12
Print #1, Chr(27) + Chr(Asc("g")) 'pitch 15
Print #1, Chr(27) + Chr(Asc("4")) 'italic
Print #1, Chr(27) + Chr(Asc("5")) 'cancel italic
Print #1, Chr(27) + Chr(Asc("E")) 'bold
Print #1, Chr(27) + Chr(Asc("F")) 'cancel bold
Print #1, Chr(15) 'condensed (SI= 15)
Print #1, Chr(18) ' cancel condensed (DC2=18)
Print #1, Chr(27) + Chr(Asc("P")) + Chr(15) 'picth 10 + condensed =
17
Print #1, Chr(27) + Chr(Asc("M")) + Chr(15) 'picth 10 + condensed =
20
Print #1, Chr(18) ' cancel condensed (DC2=18)
Print #1, Chr(14) + " DOUBLE WIDTH " + Chr(20) + "CANCEL DOUBLE
WIDTH " 'double width , one line (SO= 14) , CANCEL (DC4= 20)
Print #1, Chr(27) + Chr(Asc("-")) + Chr(Asc("1")) ' underline
Print #1, Chr(27) + Chr(Asc("-")) + Chr(Asc("0")) ' cancel underline
Print #1, Chr(27) + Chr(Asc("x")) + Chr(Asc("0")) ' Draft
Print #1, Chr(27) + Chr(Asc("x")) + Chr(Asc("1")) ' Letter Quality
Print #1, Chr(27) + Chr(Asc("W")) + Chr(Asc("1")) ' turn on double
width
Print #1, Chr(27) + Chr(Asc("W")) + Chr(Asc("0")) ' turn off double
width
Print #1, Chr(27) + Chr(Asc("w")) + Chr(Asc("1")) ' turn on double
height
Print #1, Chr(27) + Chr(Asc("w")) + Chr(Asc("0")) ' turn off double
height

Ini setting yang saya coba di Epson LQ-1170 dan berhasil . Ada yang
belum berhasil yaitu seting jenis huruf dgn :

chr(27) + ' k' + <1..9>.

semoga bermanfaat

--- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@...> wrote:
>
> apa karena LX-300 merupakan printer 9 PIN ? jadi hanya mendukung ESC/P
9 Pin ? saya akan coba besok dgn printer LX-1170 ( ESC/P bukan ESC/P2
atau ESP/P 9 Pin ) , jika berhasil saya akan kabarkan .
>
> semoga dapat membantu.... tunggu besok , karena saya tak punya printer
Epson di rumah .
>
>
> '========
>
> --- In belajar-access@yahoogroups.com, Erwin Sugiawan esugiawan@
wrote:
> >
> > guy,
> >
> > aku mau print dari ms.access ke printer epson lx300
> >
> > cara nya :
> >
> > Function c()
> > Open "\\namaPrinter\lx300" For Output As #1
> > Print #1, Chr(27) & "@" 'Initialize printer
> > Print #1, Chr(27) & "A" & Chr(10) ' set to 10/72"
> > Print #1, "This is a test first row"
> > Print #1, "This is a test second row"
> > Print #1, Chr(27) & "A" & Chr(30) ' set to 30/72"
> > Print #1, Chr(27) & "E" 'Bold
> > Print #1, "This is a test first row"
> > Print #1, "This is a test second row"
> > Print #1, Chr(27) & "F"
> > Close #1
> > End Function
> >
> > hasil dari print di atas tidak menghasil kan font yang kecil.....
> >
> > mohon solusi nya thx
> >
> > note: kebutuhan nya direct print , tak bisa melalui report access
> >
> >
> > Best regard
> > Erwin Sugiawan
> >
> >
> > ________________________________
> >
>

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar