標題: 請問此VB由下往上列印，可否由上往下，如何改謝謝 [打印本頁]

---

作者: 霸氣走全身    時間: 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

---

作者: 霸氣走全身    時間: 2019-2-1 10:55

[attach]30045[/attach]回復 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)