Access911.net   |   a9BBS   |   OTaA System  
  搜索文章︰  
Access911歡迎您光臨  
   主頁      上傳      简体版       論壇     
設為首頁  |  加入收藏   
  
你現在的位置︰文章索引 -> 文章分類 -> 報表  
 首頁|  近日更新|  下載  |  文章索引  |  搜索|  朮語|  承接工程|  
 
系統正在加載內容,請耐心等待...
 
 查詢
 窗体
 報表
 
 
 VBA
 函數
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 發布
 OA
 ASP/ASP.NET
 其他語言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用軟件
 參考文檔
 業主作品
 网友大作
 
 
友情鏈接
 access911.net
 
訪問人次
 1702480
 
站長 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 訂閱

顯示附加信息 >>>

報表中遇到不滿一頁如何用空行代替

作者︰未詳  摘自︰未詳  ︰cg1  更新日期︰2003-4-24  瀏覽人次︰

 

請參考下載區例程︰
報表記錄不滿一頁用空行代替

下載請單擊︰http://www.access911.net/index.asp?uec=bg&board=8&recordid=72FAB21E


ACC: Print Blank Line Every Nth Line in a Report (95/97)
The information in this article applies to:
Microsoft Access for Windows 95 7.0
Microsoft Access 97

This article was previously published under Q139046 
SUMMARY
Moderate: Requires basic macro, coding, and interoperability skills. 

This article describes how to add blank lines between the printed lines on a report. You can use this method to add a blank line after a set number of lines. For example, you could use this method to add a blank line after every five lines of data in your report. 

NOTE: This article explains a technique demonstrated in the sample files, RptSampl.exe (for Microsoft Access for Windows 95 version 7.0) and RptSmp97.exe (for Microsoft Access 97). For information about how to obtain these sample files, please see the following articles in the Microsoft Knowledge Base: 

145777 ACC95: Microsoft Access Sample Reports Available in Download Center 

175072 ACC97: Microsoft Access 97 Sample Reports Available in Download Center 
MORE INFORMATION
CAUTION: Following the steps in this example will modify the sample database Northwind.mdb. You may want to back up the Northwind.mdb file and perform these steps on a copy of the database. 

To add a blank line after every five lines in a report, follow these steps: 

Open the sample database Northwind.mdb. Click the Reports tab, and then click New. 
In the New Report dialog box, click Report Wizard, choose the Employees Table, and then click OK. 
In the Available Fields box, select EmployeeID, and then click the ">" button. Repeat this step for the LastName, FirstName, and BirthDate fields, and then click Next. 
Select BirthDate as the primary group level, click the ">" button, and then click Next. 
Select LastName as the field to establish sort order in Field 1, and then click Next. 
On the "How would you like to lay out your report" screen, click Next. 
On the "What Style would you like?" screen, click Next. 
On the "What Title would you like for your report?" screen, type Employee Birthdays, and then click Finish. 
View the new report in Design view. 
On the View menu, click Code. 
Type the following lines in the module's Declarations section: 

       Option Compare Database
       ' This code declares the cLines variable as an integer, and the
       ' cMaxLine constant as five. You can set the cMaxLine constant
       ' to insert a blank line after as many lines as you want. For
       ' example, to add a blank line after every eight lines in the
       ' report, set cMaxLine=8.
       Dim cLines As Integer
       Const cMaxLine=5

                        
In the Object box of the code module, select Report. In the Procedure box of the code module, select Open. Type the following procedure: 

       Private Sub Report_Open (Cancel As Integer)
          'This code initializes the cLines variable to zero.
          cLines = 0
       End Sub


                        
In the Object box, select Detail. The Procedure box will change to Format. Type the following procedure: 

       Private Sub Detail_Format (Cancel As Integer, FormatCount As _
              Integer)
       ' This code adds a blank line by setting the NextRecord and
       ' PrintSection properties.
         If cLines Mod (cMaxLine+1) = 0 Then
            Me.NextRecord = False
            Me.PrintSection = False
         End If
         cLines = cLines + 1
       End Sub

                        
Close the module, and then preview the report. Note that there is a blank line in the report after every five lines of detail. 
REFERENCES
For more information about the NextRecord or PrintSection properties, search for "NextRecord," and then "NextRecord property" using the Microsoft Access 97 Help Index. 
Last Reviewed: 11/17/2000 
Keywords: kbhowto KB139046 


http://support.microsoft.com/default.aspx?scid=kb;en-us;139046


 

 
相關文章
     如何控制每頁打印的記錄數?
     打印再添一例,自動分頁
     如何在報表中每隔N行顯示一條粗線
 
評論
     查看或發表更多的評論,請單擊這里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期︰2000年4月2日  |  設計施工︰陳格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陳格 保留所有權利