crystal report 报表制作

 Option   Explicit  
  Dim   m_App   As   New   CRAXDDRT.Application  
  Dim   m_Report   As   CRAXDDRT.Report  
  Dim   Con   As   New   ADODB.Connection  
  Dim   rs1   As   New   ADODB.Recordset  
   
  Private   Sub   CRViewer91_PrintButtonClicked(UseDefault   As   Boolean)  
          m_Report.PrinterSetupEx   Me.hwnd  
  End   Sub  
   
  Private   Sub   Form_Load()  
  Me.Icon   =   LoadPicture(App.Path   &   "/title.ico")  
  Con.ConnectionString   =   strConnSQL  
  Con.Open  
  Set   m_Report   =   m_App.OpenReport(App.Path   &   "/Report/rptFixDisCard.rpt",   1)  
  rs1.Open   "select   *   From   vfixdis   where   fix_no   ='"   &   Trim(fix_no_dis)   &   "'",   Conn,   adOpenStatic,   adLockReadOnly  
  m_Report.Database.SetDataSource   rs1  
  Screen.MousePointer   =   vbHourglass  
  CRViewer91.ReportSource   =   m_Report  
   
  CRViewer91.ViewReport  
  CRViewer91.Refresh  
  Screen.MousePointer   =   vbDefault  
   
  End   Sub  
   
  Private   Sub   Form_Resize()  
  CRViewer91.Top   =   0  
  CRViewer91.Left   =   0  
  CRViewer91.Height   =   ScaleHeight  
  CRViewer91.Width   =   ScaleWidth  
   
  End   Sub