關於不固定欄自動列印至最後一筆資料 - Excel程式區

[發問] 關於不固定欄自動列印至最後一筆資料

　暱稱: 豪

4^# 跳轉到 »

發表於 2016-4-25 22:59 | 只看該作者

回復 3# lpk187

實在太感謝了,find 真好用

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2016-4-24 20:18 | 只看該作者

回復 1# starry1314

也可以這樣！

Option Explicit
Sub 巨集1()
Dim c As Range
With Sheets("工作表1")
Set c = .Rows(3).Find("P.P", , , , , 1) '往後尋找
.PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
Set c = .Rows(3).Find("P.P", , , , , 2) '往前尋找
.PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
End With
End Sub

複製代碼

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-4-24 20:07 | 只看該作者

回復 1# starry1314

給你參考，我的做法

Option Explicit
Sub 巨集1()
Dim c As Range
With Sheets("工作表1")
Set c = .Rows(3).Find("P.P", , , , , 1)
.PageSetup.PrintArea = "$A$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
Set c = .Rows(3).Find("P.P", , , , , 2)
.PageSetup.PrintArea = "$T$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Address
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
End With
End Sub

複製代碼

靜思自在 : 閒人無樂趣，忙人無是非。