a'kum sumer!! kite ade kemusykilan psl CR ni la...kite dah setup kat sistem kite nak "generate", "view" then "print" report . Report bleh generate, tp bile nak preview die x mo! nape agaknyer ek? ni kite bg coding yg dah kite setkan dlm VB, bantuan anda sumer didahulukan dgn ucapan THANK YOU Private Sub cmdGenerate_Click() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbsunjin;Data Source=SJMSERVER" db.Execute "SP_WORKORDERFB" db.Close Adodc1.Refresh Private Sub cmdView_Click() Screen.MousePointer = vbHourglass strSelectionFormula = "{WORKORDERFB.WOID} = " & Val(txtWOID.Text) CRDpr.ReportFileName = "C:\IMECSrpt\WO.rpt" CRDpr.ReplaceSelectionFormula (strSelectionFormula) CRDpr.RetrieveDataFiles CRDpr.WindowTitle = "Work Order Form" CRDpr.WindowState = crptMaximized CRDpr.Destination = crptToWindow CRDpr.Action = 1 Screen.MousePointer = vbDefault End Sub Private Sub cmdPrint_Click() Screen.MousePointer = vbHourglass strSelectionFormula = "{WORKORDERFB.WOID} = " & Val(txtWOID.Text) CRDpr.ReportFileName = "C:\IMECSrpt\WO.rpt" CRDpr.ReplaceSelectionFormula (strSelectionFormula) CRDpr.RetrieveDataFiles CRDpr.Destination = crptToPrinter CRDpr.PrinterSelect CRDpr.Action = 1 Screen.MousePointer = vbDefault End Sub
