- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 13# jackson7015
[預覽列印] 可關閉它或是選擇印列,但無法傳回參數供程式作中斷印列或繼續印列的判斷.
且使用:使用視窗的檢視模式切換為分頁符號預覽 試試看- Sub Ex()
- Dim Rng As Range, Ar(1 To 5), i As Integer, x As Integer
- With Sheets("未到期支票標準")
- If .Range("B3") = 0 Then
- MsgBox "沒有資料可印列 ?"
- Exit Sub
- End If
- ActiveWindow.View = xlPageBreakPreview '使用中視窗的檢視模式切換為分頁符號預覽
- Ar(1) = "第一聯"
- Ar(2) = "第二聯"
- Ar(3) = "第三聯"
- Ar(4) = "第四聯"
- Ar(5) = "第五聯"
- .ScrollArea = "I6:x27"
- With .PageSetup
- .PrintArea = "I6:x27" '印列範圍 "一張支票的範圍"
- .CenterHorizontally = True '如果列印時頁面上的工作表是水平置中的則為 True
- .CenterVertically = True '如果列印時頁面上的工作表是垂直置中的則為 True
- .PaperSize = xlPaperA4 '設定紙張大小 '可看PaperSize 說明
- .FitToPagesWide = 1 '設定頁寬=1頁
- .FitToPagesTall = 1 '設定頁高=1頁
- End With
-
- For i = 1 To .[B3]
- Set Rng = .Range("C6:g6").Offset(i)
- .Range("L12") = Rng(1, 1) '票據號碼
- .Range("M12") = Rng(1, 2) '金額
- .Range("O12") = Rng(1, 3) '年
- .Range("P12") = Rng(1, 4) '月
- .Range("Q12") = Rng(1, 5) '日
- .Range("X10") = Ar(1)
- If MsgBox(.Range("L12") & " 印列", vbYesNo, "票據號碼") = vbYes Then
- For x = 1 To 5
- .Range("X10") = Ar(x)
- .PrintOut Copies:=1 '一張支票的範圍印列五次
- Next
- End If
- Next
- .ScrollArea = ""
- End With
- ActiveWindow.View = xlNormalView
- End Sub
複製代碼 |
|