[發問] 判斷列印範圍

Sub ex()

k = Sheets(2).Cells(9, Columns.Count).End(xlToLeft).Column

For i = 11 To 96

Sheets(2).Cells(i - 9, k + 1) = Sheets(1).Cells(i, 3)

Next

Sheets(2).Cells(1, k + 1) = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00")

End Sub
請問可不可以在以上指令入面加自動列印,按複製讀取的內容做範圍.
淮大提供

Sub TEST()
ActiveSheet.ResetAllPageBreaks
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row - 1
　　If Right(Cells(i, 1), 2) = "合計" Then
　　　　ActiveSheet.HPageBreaks.Add Before:=Cells(i + 1, 1)
　　End If
Next i
End Sub
加入〔分頁〕線，再手動列印（可手動指定列印頁次）

複製代碼

123.zip (13.2 KB)

樓主熱帖

coke373

小學生 Rank: 1

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2017-4-11 06:05 | 只看該作者

回復 4# 准提部林

謝謝准大。現在明白更多了。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2017-4-10 19:45 | 只看該作者

回復 3# coke373

Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
__第一列最右非空格的右一空白格

xL(2, 1).Resize(86)
Sheet1 複製範圍共86格

TOP

coke373

小學生 Rank: 1

帖子: 32
主題: 6
精華: 0
積分: 41
點名: 0
作業系統: WIN10
軟體版本: office2010
閱讀權限: 10
性別: 男
來自: 澳門
註冊時間: 2016-11-29
最後登錄: 2021-5-17

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-4-10 01:27 | 只看該作者

回復 2# 准提部林

謝謝准大幫忙
我就是想要你的方式，作最後檢查列印範圍。可以跟著複製讀取的範圍。
指令我要慢慢研究。
Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
xL(2, 1).Resize(86)
請問下這兩句是什麼意思。

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2017-4-9 10:19 | 只看該作者

Sub ex()
Dim xL As Range
Set xL = Sheets(2).Cells(1, Columns.Count).End(xlToLeft)(1, 2)
xL = Format(Date, "yyyymmdd")
xL(2, 1).Resize(86) = Sheets(1).[C11].Resize(86).Value
Range(xL, xL(Rows.Count, 1).End(xlUp)).Name = "'" & Sheets(2).Name & "'!Print_Area"
End Sub

TOP