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

starry1314

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

下載次數: 14

2016-12-6 09:56

下載 (29.33 KB)

2016-12-6 09:56

此為橫向的方式

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

複製代碼

starry1314

回復 2# 葉國洲


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

starry1314

回復 5# 准提部林


    感謝淮大