帖子: 73
主題: 14
精華: 0
積分: 174
點名: 205
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-2-6
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-14 20:25 | 只看該作者

[發問] 可否用VBA來控制列印範圍？

VIP.rar (12.95 KB)

如題
工作表格式固定這樣子不變
資料增減都只在有顏色的範圍內變化 (列會增減，行不變)
最少約10筆，最多約300筆

問題
1. 因為資料多少不一定每次都會多印出1~3張空白格子紙張--->浪費紙
2. 如果先設定列印範圍再列印---->麻煩又難控制

構想
1. 用VBA控制，列印出有資料的範圍，沒有資料的格子不列印
2.

感謝！

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-2-14 21:35 | 只看該作者

回復 1# bvge
表格內容是由公式求得
所以要用迴圈找出資料尾

Sub nn()
r = [C65536].End(xlUp).Row
Do Until Cells(r, 3) <> ""
r = r - 1
Loop
ActiveSheet.PageSetup.PrintArea = "A1:AB" & r
End Sub

複製代碼

學海無涯_不恥下問

TOP

bvge

中學生 Rank: 2

帖子: 73
主題: 14
精華: 0
積分: 174
點名: 205
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-2-6
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2011-2-14 22:13 | 只看該作者

Hsieh超版
厲害喔
解決難題了
感激不盡
謝謝

TOP

bvge

中學生 Rank: 2

帖子: 73
主題: 14
精華: 0
積分: 174
點名: 205
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-2-6
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

4^#

發表於 2011-2-15 05:29 | 只看該作者

回復 bvge
表格內容是由公式求得
所以要用迴圈找出資料尾
Hsieh 發表於 2011-2-14 21:35

因為沒學過VBA
想請問Hsieh超版
這一串試了很好用，但是最後還要去按一下"列印"按鈕才會從印表機出來
能否再加入幾個字讓它能自動從印表機跑出來
等於是設定列印範圍 + 列印一次完成 (我好懶惰)
謝謝！

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-2-15 08:25 | 只看該作者

回復 4# bvge
等於是設定列印範圍 + 列印一次完成 (我好懶惰)
解決懶惰方法:
一、辭職回家當少爺
二、加強自我職場競爭力，提升自己的能力

利用事件驅動程序

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
r = .[C65536].End(xlUp).Row
Do Until .Cells(r, 3) <> ""
r = r - 1
Loop
.PageSetup.PrintArea = "A1:AB" & r
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

bvge

中學生 Rank: 2

帖子: 73
主題: 14
精華: 0
積分: 174
點名: 205
作業系統: xp
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-2-6
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章 2011兔年全勤獎章

6^#

發表於 2011-2-15 21:10 | 只看該作者

感謝超版
受教了
謝謝！

TOP

宇媽