berikan. Tapi saya masih kesulitan menerapkan petunjuk
yang bapak berikan, (maklum saya masih dalam taraf
belajar). Mohon rekan2 sudi mengkoreksi apa yang salah
dari contoh program dibawah ini. Masalahnya bentuk dan
jenis huruf tidak bisa dirubah.
Saya pake win98 SE, printer Cannon BJC 265 SP,d an VB
6
Terima kasih atas bantuannya.
Private Sub Command3_Click()
Open "LPT1:" For Output As #1
Print #1, Chr(27) & Chr(33) & Chr(5)
Print #1, " "
Print #1, Tab(10); "Haloo"
Close #1
End Sub
--- Ronald Irawan <[EMAIL PROTECTED]> wrote:
> Ini salah satu contoh huruf
> CPI0 = Chr(27) & Chr(64) ' RESET
> PRINTER
> CPI12 = Chr(27) & Chr(33) & Chr(1) ' 12 Cpi
> ESC !
> CPI20 = Chr(27) & Chr(33) & Chr(5) ' 20 Cpi
> ESC !
> CPI17 = Chr(27) & Chr(33) & Chr(4) ' 17 Cpi
> ESC !
> CPI15 = Chr(27) & Chr(103) ' 15 Cpi
> ESC g
>
>
>
> Print #1, Chr(27) & Chr(33) & Chr(5) atau print
> #1,CP120
>
> Salam
> Ronald Irawan
> Pt. Sanghiang Perkasa
> Gd. Graha Kirana Lt.5
> Jl Yos Sudarso Kav.88
> Jakarta
>
>
>
> dedy suded <[EMAIL PROTECTED]>
> Sent by: [email protected]
> 30/05/2006 08:06 AM
> Please respond to
> [email protected]
>
>
> To
> [email protected]
> cc
>
> Subject
> Re: [Programmer-VB] Tanya Print Struk
>
>
>
>
>
>
> Pak, Saya telah berhasil mencoba kode tsb pada
> printer
> Canon Bjc 265 Sp. Tapi ada yg ingin saya tanyakan:
> 1. Mengapa kok tidak berfungsi di winXp?
> 2. Huruf hasil printnya kok jadi besar2 semua?
> saya telah coba tambah pake "printer.fontsize = 8"
> dan
> "Printer.font = Draft", tapi tidak ada efeknya.
>
> Mohon penjelasan lebih lanjut
> Terima kasih
> --- Ronald Irawan <[EMAIL PROTECTED]>
> wrote:
>
> > UNTUK struk lebih baik anda menggunakan perintah
> > print,
> > ini contoh dari arsip
> > Private Sub PrintStruk()
> > Open "LPT1:" For Output As #1
> > Print #1, Tab(0)
> > Print #1, "Toko Buku - RHEMA"
> > Print #1, "Garut - Jabar"
> > Print #1,
> "------------------------------------"
> > Print #1, " "
> > Print #1, "Note: Barang yang sudah dibeli
> tidak"
> > Print #1, " dapat ditukar /
> dikembalikan."
> > Print #1, " "
> > Print #1, " *** T E R I M A K A S I H ***"
> > Print #1, " "
> > Print #1, " "
> > Print #1, " "
> > Print #1, " "
> > Print #1, Chr(0)
> > Close #1
> > end sub
> > Salam
> > Ronald Irawan
> > Pt. Sanghiang Perkasa
> > Gd. Graha Kirana Lt.5
> > Jl Yos Sudarso Kav.88
> > Jakarta
> >
> >
> >
> > PALUARED <[EMAIL PROTECTED]>
> > Sent by: [email protected]
> > 29/05/2006 01:25 PM
> > Please respond to
> > [email protected]
> >
> >
> > To
> > [email protected]
> > cc
> > "Anthony Muliadi" <[EMAIL PROTECTED]>, "Andry
> > Hilman"
> > <[EMAIL PROTECTED]>
> > Subject
> > [Programmer-VB] Tanya Print Struk
> >
> >
> >
> >
> >
> >
> > Dear all,
> >
> > Kenapa ya kok kertasnya masih gulung melebihi
> > panjang kertas A5?
> >
> > Private Sub PrintStruk()
> > Dim tbCurrent As Table
> > Dim tiCurrent As TableLogOnInfo
> > Dim doc As New RptStruk
> >
> >
> >
> > For Each tbCurrent In doc.Database.Tables
> > tiCurrent = tbCurrent.LogOnInfo
> > With tiCurrent.ConnectionInfo
> > .DatabaseName = "market"
> > .ServerName = "Scylla01"
> > .UserID = "sa"
> > .Password = "susilo"
> > End With
> > tbCurrent.ApplyLogOnInfo(tiCurrent)
> > Next
> >
> > Dim myReportsView As New FormRptBeli
> > With myReportsView
> >
> > .CRBeli.ReportSource = doc
> >
> > .Text = " AGIRA TOKO"
> >
> > doc.PrintOptions.PaperSize =
> > CrystalDecisions.Shared.PaperSize.PaperA5
> > doc.PrintOptions.PaperOrientation =
> > PaperOrientation.Portrait
> > doc.PrintToPrinter(1, True, 0, 0)
> >
> > End With
> > End Sub
> >
> >
> > TIA
> > rgrds,
> > PLR
> >
> >
> >
> > Wahana Programmer Groups Links
> >
> >
> >
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> >
> >
> >
> >
>
>
> Send instant messages to your online friends
> http://uk.messenger.yahoo.com
>
>
>
>
> Wahana Programmer Groups Links
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Send instant messages to your online friends http://uk.messenger.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
