|
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
|