<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      [5分]如何用代碼設置報表頁眉高度

      白樺林 等級: 普通會員 積分:599 金幣:40 來自:西安Access交流中心 發表于:2019-08-07 13:41:35  
      樓主

      我希望在生成報表時,報表頁眉的高度能根據條件查詢到的首條記錄的ID自動調整。

      具體請需要請看附件實例。點擊下載此附件

      哪位大俠能幫我在報表中加入代碼自動實現上述需求。

      非常感謝?。。?!

       

      access培訓  誠聘access開發人員

          白樺林
            獲得社區協助:請教問題(即發帖)66篇,其中獲得解決的59篇;
            協助社區成員:協助他人(即回帖)62篇,其中被設為【最佳答案】的10篇;
            協助我們社區:發布技術文章1篇,邀請了1名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      白樺林 等級:普通會員 積分:599 金幣:40 來自:西安Access交流中心 發表于2019/8/8 15:08:26 
      1樓 得分: 0

       這個功能還是很實用的,可以用來在提前打印好的空表格里的指定位置套打報表數據。 

      比如說我有幾張打印好的空表格,每張空表格有10行,我第一次打印的時候首條記錄的ID是1,打印了ID為1至3的3條記錄;第二次打印時首條記錄ID為4,那么打印的時就可以從空表中第四行的位置開始打印。最終多次打印的數據就會連續打印在同一張表格上。

      很實用的實例,希望哪位朋友能幫我實現。

      謝謝您啦?。?!



          白樺林
            獲得社區協助:請教問題(即發帖)66篇,其中獲得解決的59篇;
            協助社區成員:協助他人(即回帖)62篇,其中被設為【最佳答案】的10篇;
            協助我們社區:發布技術文章1篇,邀請了1名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      西出陽關無故人 等級:版主★★★★★ 積分:595 金幣:120 來自:安順Access交流中心 發表于2019/8/9 15:45:35 
      2樓 得分: 0

      以下代碼可以控制報表頁眉的高度

      Private Sub Report_Load()
          Dim rec As Recordset
          Set rec = CurrentDb.OpenRecordset("select * from [成績表 查詢]")
          Me.Section(1).Height = rec.Fields("id")
      End Sub
      但是,能不能一張紙多次打印,并且實現你的目的,要自己測試。



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          西出陽關無故人
            獲得社區協助:請教問題(即發帖)18篇,其中獲得解決的9篇;
            協助社區成員:協助他人(即回帖)832篇,其中被設為【最佳答案】的218篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      wyh99999 等級:普通會員 積分:121 金幣:40 來自:安慶Access交流中心 發表于2019/8/10 9:11:21 
      3樓 得分: 0

      關注樓1所描述的結果!



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          wyh99999
            獲得社區協助:請教問題(即發帖)61篇,其中獲得解決的52篇;
            協助社區成員:協助他人(即回帖)306篇,其中被設為【最佳答案】的54篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      沈軍 等級:版主★★★★★ 積分:356 金幣:960 來自:東莞Access交流中心 發表于2019/8/10 22:30:21 
      4樓 得分: 0

      思路:

      1、建倉一個輔助表結構與主表完全相同

      2、通過刪除查詢、追加查詢、更新查詢等 完成向輔助表中添加數據,打印后 更新主表中的數據

      3、報表中打印輔助中的數據 就可以



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          楊漢寶
            獲得社區協助:請教問題(即發帖)3篇,其中獲得解決的2篇;
            協助社區成員:協助他人(即回帖)276篇,其中被設為【最佳答案】的72篇;
            協助我們社區:發布技術文章24篇,邀請了2名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      西出陽關無故人 等級:版主★★★★★ 積分:595 金幣:120 來自:安順Access交流中心 發表于2019/8/12 11:02:28 
      5樓 得分: 0

      參考:點擊下載此附件

      報表中的模塊:

      Option Compare Database

      '--------------------------------------------------------------------------------------------------------

      '這個是針對已經印刷好的表格之數據打印,不含表頭、頁眉頁腳,僅僅是數據行的定位打印。每次只能打印一行數據。

      '建議從窗體中的當前記錄標記,生成查詢,然后根據該查詢生成報表。且在窗體中使用按鈕命令進行“打印”

      '比如說我有幾張已經印刷好的空表格,每張空表格有10行,我第一次打印的時候首條記錄的ID是1,打印了ID為1的1條記錄;第二次打印時首條記錄ID為4的1條記錄,
      '那么打印的時就可以從空表中第四行的位置開始打印。最終多次打印的數據就會連續打印在同一張表格上。
      '--------------------------------------------------------------------------------------------------------
      Dim tid As Long '局部變量,報表數據的行數
      Const startH As Long = 0  '數據行的起始位置,可以在頁面高度許可的范圍內自行調整,與已經印刷好的表格、本報表的主體節位置相關。
      '
      Private Sub Report_Open(Cancel As Integer)
      '在打開報表的時候,獲得排序編號的最小值,這個值決定打印位置(在已經印刷好的打印紙上的表格的第幾行)
          tid = Nz(DMin("id", "報表查詢"), 0)
      End Sub


      Private Sub 頁面頁眉_Format(Cancel As Integer, FormatCount As Integer)
          Me.Section(3).Height = tid * Me.Section(0).Height + startH  '設置要打印的第一行數據的起始位置=tid*主體節的高度,主體節的高度就是每行數據的打印高度。
      End Sub


          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          西出陽關無故人
            獲得社區協助:請教問題(即發帖)18篇,其中獲得解決的9篇;
            協助社區成員:協助他人(即回帖)832篇,其中被設為【最佳答案】的218篇;
            協助我們社區:發布技術文章3篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:5篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5