返回列表 上一主題 發帖

請問此VB由下往上列印，可否由上往下，如何改謝謝

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-1-31 21:30 | 顯示全部帖子

請問此VB由下往上列印，可否由上往下，如何改謝謝

Sub 自動列印()

MsgBox ("已開始列印！")

For ii = Range("H2").End(xlUp).Row To 2 Step -1

Range("H1").Value = Cells(ii, 8).Value

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Next


End Sub

464932_vba練習用 - 複製.rar (14.4 KB)

收藏 分享

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
2#
發表於 2019-2-1 10:55 | 顯示全部帖子
464932_vba練習用 - 複製.rar (12.8 KB) 回復 1# 霸氣走全身
上面是錯的，請問如何改正，在H欄位往下開始列印呢??謝謝

    Sub 自動列印()

MsgBox ("已開始列印！")

For ii = Range("H65666").End(xlUp).Row To 2 Step -1

Range("H1").Value = Cells(ii, 8).Value

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Next


End Sub

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題