Teman-teman, koding dibawah ini mudah-mudahan bisa bermanfaat bagi kalian yang
sedang mendevelop program dengan VB, CR, dan Sql Server 2000. Ini adalah solusi
yang saya temukan setelah mencoba berbagai alternatif source code.
Private Sub CmdCetak_Click()
On Error GoTo Perangkap
Dim cari, Kunci As String
Kunci = lblKodePasien.Caption
cari = "{tbPasien.KodePasien} = '" & Kunci & "'"
With RptPasien
.Connect = "Driver = {SQL Server}; Server= PKLBSI ;UID=sa ;PWD
=sa;database=ROYAL;"
.SelectionFormula = cari
.ReportFileName = App.Path & "\Pasien.rpt"
.WindowTitle = "Cetak Data Pasien " & Kunci
.Action = 1
.WindowShowRefreshBtn = True
.Destination = crptToWindow
.PrintFileType = crptCrystal
.RetrieveDataFiles
.PageZoom (100)
End With
Exit Sub
Perangkap:
MsgBox "Koneksi untuk laporan gagal !", , "Perhatian"
End Sub
Hormat saya
Saripudin Hidayat
________________________________________________________
Kunjungi halaman depan Yahoo! Indonesia yang baru!
http://id.yahoo.com/
