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
|
|
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
------------------------ Yahoo! Groups Sponsor --------------------~-->
Everything you need is one click away. Make Yahoo! your home page now.
http://us.click.yahoo.com/AHchtC/4FxNAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
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
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
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.
