COpyPASte nya yang diperlukan saja , jangan semuanya . artinya sesuai dengan kebutuhan , misal untuk :
huruf 10CPI ambil :
Print #1, Chr(27) + Chr(Asc("P")) 'pitch 10
saya harap dapat dipahami
--- In belajar-access@yahoogroups.com, Erwin Sugiawan <esugiawan@...> wrote:
>
> Kang....terima kasih udah reply
>
> tp mohon maaf ..belum berjalan .. hasil dari copy paste adalah tulisan "DOUBLE WIDTH CANCEL DOUBLE" dan berbentuk lebar dan font nya besar.
>
> sedang yang saya inginkan hasil spt struk di kassa atau pun karcis di mall ..thx
>
> Just Reminder : saya mempergunakan epson lx-300 biasa
>
>
> Best regard
> Erwin Sugiawan
>
>
> ________________________________
> Dari: sudarsono <jkssbma@...>
> Kepada: belajar-access@yahoogroups.com
> Dikirim: Rabu, 6 Juli 2011 8:55
> Judul: [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
> > >
> > >
> > > ________________________________
> > >
> >
>
>
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
> http://docs.yahoo.com/info/terms/
>
Tidak ada komentar:
Posting Komentar