返回列表下一主題上一主題發帖

[發問] 自動循環列印_判斷列印範圍

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-12-6 09:56 | 只看該作者

[發問] 自動循環列印_判斷列印範圍

本帖最後由 starry1314 於 2016-12-6 10:03 編輯

樞紐分析表
請問VBA該如何設定自動選擇列印範圍後列印
1.分成三張 1F、2F、3F
2.目前想法是A2開始到下一列並包含合計兩字的列為列印範圍
3.在從上次運行結果的下一列重複循環..

自動循環列印_判斷列印範圍.rar (10.68 KB)

此為橫向的方式

Option Explicit
'LPK87 提供
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

複製代碼

樓主熱帖

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

6^#

發表於 2016-12-7 09:21 | 只看該作者

回復 5# 准提部林

感謝淮大

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2016-12-6 15:12 | 只看該作者

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

加入〔分頁〕線，再手動列印（可手動指定列印頁次）

TOP

葉國洲