Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument laporan = New CrystalReport45_36109015
Form53_36109015.HONDA.ReportSource = laporan
If Form53_36109015.Visible = False Then Form53_36109015.Show() Else Form53_36109015.Activate() End If
membuat crystal report dengan mengganti namanya menjadi honda. form ini berfungsi sebagai penghubung antara form pemanggil crystalreport itu sendiri dan crystal report dapat di cetak di PDF
ridhayanti saleh
BalasHapus36109015
tugas 54
Public Class Form54_36109015
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
laporan = New CrystalReport45_36109015
Form53_36109015.HONDA.ReportSource = laporan
If Form53_36109015.Visible = False Then
Form53_36109015.Show()
Else
Form53_36109015.Activate()
End If
End Sub
End Class
Crystal Report Viewer = Honda
BalasHapusmembuat crystal report dengan mengganti namanya menjadi honda. form ini berfungsi sebagai penghubung antara form pemanggil crystalreport itu sendiri dan crystal report dapat di cetak di PDF
BalasHapus