我有一些代碼運行并收集一些資料以列印幾張紙。每張紙都單獨列印并回圈列印。
我使用一些代碼
Applications.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
打開列印預覽頁面，然后在表單中添加一些代碼，單擊按鈕進行列印或退出。這作業正常，但是當它完成回圈時，我留下列印預覽頁面仍然打開。
你能幫我關閉列印預覽頁面并回傳主頁選項卡的代碼嗎？
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
'opens the form "ContinuePrinting"
ContinuePrinting.Show
Do
DoEvents
Loop Until ContinuePrinting.Visible
'Wait until the form is closed
Do While ContinuePrinting.Visible
DoEvents
Loop
Application.CommandBars.ExecuteMso ("FilePrintQuick")
Sheets("SeqTaskPrint").Activate
Range("as2").Select
Next WP
Application.CommandBars.??????????????????
uj5u.com熱心網友回復：
您可以使用SendKeys ("{ESC}").
注意：SendKeys不可靠，但如果使用得當會很有用。
這是一個例子。該代碼將在關閉前等待 5 秒Print Preview
代碼
Option Explicit
Sub ShowAndClosePrintPreview()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
'~~> Wait for 5 seconds
Wait 5
'~~> Close print preview
SendKeys ("{ESC}")
End Sub
Private Sub Wait(ByVal nSec As Long)
nSec = nSec Timer
While nSec > Timer
DoEvents
Wend
End Sub
在行動
uj5u.com熱心網友回復：
通過一些研究，我發現下面的代碼片段應該可以作業。
ActiveSheet.PrintOut preview:=False
或 ActiveSheet.PrintOut 預覽:=False
資料來源：Chandoo.Org
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/359746.html