errornya di situ pak?
On 5/29/06, Ronald Irawan <
[EMAIL PROTECTED]> wrote:
di .net pun semestinya bisa.. coba anda masukkan perintah tersebut di tools, upgrade visual basic 6 code ( dari View Code )
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
Sent by: [email protected]29/05/2006 02:32 PM
[email protected]
[email protected] Re: [Programmer-VB] Tanya Print Struk
maaf pak saya pakek dot net
jadi perintah tersebut tidak bisa
oh ya pak klo di VB 6 khan ada "printer.enddoc" klo vb.net apa ya...
On 5/29/06, 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
[email protected]
[email protected] "Anthony Muliadi" < [EMAIL PROTECTED]>, "Andry Hilman" <[EMAIL PROTECTED] > [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
------------------------ 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 .
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.
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 .
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.
