返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 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)



此為橫向的方式
  1. Option Explicit
  2. 'LPK87 提供
  3. Sub 巨集1()
  4.     Dim c As Range
  5.     With Sheets("工作表1")
  6.         Set c = .Rows(3).Find("P.P", , , , , 1) '往後尋找
  7.         .PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
  8.         .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
  9.         Set c = Nothing
  10.         Set c = .Rows(3).Find("P.P", , , , , 2) '往前尋找
  11.         .PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
  12.         .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
  13.         Set c = Nothing
  14.     End With
  15. End Sub
複製代碼
收藏 分享

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-12-6 11:30 | 只看該作者
  1. Sub test()
  2. For i = 2 To 6 Step 2
  3. Range(Cells(i, 1), Cells(i + 1, 5)).PrintOut
  4. Next i
  5. End Sub
複製代碼

TOP

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 2016-12-6 12:41 | 只看該作者
回復 2# 葉國洲


    抱歉,範例不夠完整
因品項不是固定的 故無法使用step 2
可能美式1X項 日式5項之類的

TOP

葉國洲

帖子
31 
主題
0 
精華
0 
積分
31 
點名
0  
作業系統
win10 
軟體版本
office 2016 
閱讀權限
10 
性別
男 
註冊時間
2016-10-4 
最後登錄
2017-10-17 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2016-12-6 13:16 | 只看該作者
回復 3# starry1314

根據你提供的資料用step2是沒有錯的

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-15 
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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
6#
發表於 2016-12-7 09:21 | 只看該作者
回復 5# 准提部林


    感謝淮大

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題