VBA/Excel/Access/Word/Access/Report

Материал из VB Эксперт
Перейти к: навигация, поиск

Adding Controls to the Report

   <source lang="vb">

Sub NewReport()

   Dim myReport As Report
   Dim strReportName As String
   Dim txtReportColumns As Access.TextBox
   Dim lblReportLabel As Access.Label
   Dim intWidth As Integer
   strReportName = "myReport"
   Set myReport = CreateReport
   myReport.RecordSource = "SELECT * FROM Employees"
   myReport.Section("Detail").Height = 350
   Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
    , , "txtCustNumber")
   Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _ 
   acPageHeader)
       lblReportLabel.Name = "lblCustNumber"
       lblReportLabel.Caption = "Customer Number"
       lblReportLabel.Width = 2000
       lblReportLabel.Height = 300
       lblReportLabel.FontBold = True
   Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
    , , "txtCustLastName", 3000)
   Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _
    acPageHeader, , ,3000)
       lblReportLabel.Name = "lblLastName"
       lblReportLabel.Caption = "Last Name"
       lblReportLabel.Width = 2000
       lblReportLabel.Height = 300
       lblReportLabel.FontBold = True
   Set txtReportColumns = CreateReportControl(myReport.Name, acTextBox, _
            , , "txtCustFirstName", 6000)
            
       Set lblReportLabel = CreateReportControl(myReport.Name, acLabel, _
        acPageHeader, , , 6000)
       lblReportLabel.Name = "lblFirstName"
       lblReportLabel.Caption = "First Name"
       lblReportLabel.Width = 2000
       lblReportLabel.Height = 300
       lblReportLabel.FontBold = True
        DoCmd.Save , strReportName
           DoCmd.Close , , acSaveYes
           DoCmd.OpenReport strReportName, acViewPreview

End Sub

</source>
   
  


Create a named report

   <source lang="vb">

Sub NewReport()

   Dim myReport As Report
   Dim strReportName As String
   strReportName = "myReport"
   Set myReport = CreateReport
   DoCmd.Save , strReportName
   DoCmd.Close , , acSaveYes

End Sub

</source>
   
  


Creating an Empty Report

   <source lang="vb">

Sub NewReport()

   Dim myReport As Report
   Set myReport = CreateReport
   DoCmd.Close , , acSaveYes

End Sub

</source>
   
  


Open report

   <source lang="vb">

Sub runReport()

   Dim con As ADODB.Connection
    Set con = New ADODB.Connection
   con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\mydb.mdb;"
   DoCmd.OpenReport "rptCustomer", acViewPreview

End Sub

</source>
   
  


Print preview Report

   <source lang="vb">

Sub cmdPrint_Click()

  DoCmd.OpenReport "rptSales", acViewPreview
  

End Sub

</source>