Salam Kenal,
Bagaimana cara mengekspor report ke excel/ lainnya dari crviewer CR9,
karena ditoolbar pada saat viewer ditampilkan, tidak ada toolbarnya,
mohon bantuannya dari milis ini, dan bagaiman buat kode di report jika
isi dari field keterangan ="A" maka checbox1 di checklist.
saya mengunakan VB 6 + Mysql + MyODBC + CR9
dan kode saya sebagai berikut :
Private Sub Form_Load()
If sConn.State = 1 Then
Tutup
End If
Buka
If sRec.State = adStateOpen Then sRec.Close
sComm.CommandText = "select * from
exim_beacukai_trc_bc40,exim_beacukai_trc_bc40_dtl where
exim_beacukai_trc_bc40_dtl.no=exim_beacukai_trc_bc40.no and
exim_beacukai_trc_bc40.no='" & FlagDataSearch1 & "'"
sComm.ActiveConnection = sConn
sRec.Open sComm, , adOpenDynamic, adLockOptimistic
CRViewer91.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM
CRViewer91.DisplayTabs = False 'THIS REPORT DOES NOT DRILL
DOWN, NOT NEEDED
CRViewer91.EnableDrillDown = False 'REPORT DOES NOT SUPPORT
DRILL-DOWN
CRViewer91.EnableRefreshButton = False 'ADO RECORDSET WILL NOT
CHANGE, NOT NEEDED
Set crystal = New CRAXDRT.Application 'MANAGES REPORTS
Set report = crystal.OpenReport(App.Path &
"\ReportProgram\Report1.rpt") 'OPEN OUR REPORT
report.DiscardSavedData 'CLEARS REPORT SO WE
WORK FROM RECORDSET
report.Database.SetDataSource sRec 'LINK REPORT TO RECORDSET
CRViewer91.ReportSource = report 'LINK VIEWER TO REPORT
CRViewer91.ViewReport 'SHOW REPORT
Do While CRViewer91.IsBusy 'ZOOM METHOD DOES
NOT WORK WHILE
DoEvents 'REPORT IS
LOADING, SO WE MUST PAUSE
Loop 'WHILE
REPORT LOADS.
CRViewer91.Zoom 94
sRec.Close 'ALL BELOW HERE IS CLEANUP
Set sRec = Nothing
Set crystal = Nothing
Set report = Nothing
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
