XBasicPro - Belajar Visual Basic

Posting/Pertanyaan:

Preview & Cetak dengan Crystal Report, Visual Basic 6.0

Preview
Public Sub ViewLaporan(CrystalSql As String, sConn)

Dim CrystalDb As New ADODB.Connection
CrystalDb.open sConn

Dim rs As New ADODB.Recordset
Dim RsOutlet As New ADODB.Recordset
Dim CrystalApp As New CRAXDRT.Application

Dim CrystalRpt As CRAXDRT.Report

rs.open CrystalSql, CrystalDb, adOpenStatic, adLockReadOnly, adCmdText
Set CrystalRpt = Nothing
Dim sRpt As String
sRpt = rptPath & "\" & rptName
Set CrystalRpt = CrystalApp.OpenReport(sRpt)
CrystalRpt.DiscardSavedData
CrystalRpt.Database.SetDataSource rs
CRViewer.ReportSource = CrystalRpt
CRViewer.DisplayGroupTree = False
CRViewer.EnableRefreshButton = True
CRViewer.ViewReport

rs.Close
End Sub

Cetak Report:
CrystalRpt.PrintOut
Tanggapan/Jawaban:

© xbasicpro 2003 - 2010