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
<*> 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.
