excel - 如何使用代码关闭打印预览页面

Question

我有一些代码贯穿并收集一些数据以打印出几张纸。每张纸单独打印并循环通过。
我使用一些代码

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.??????????????????

Answer 1

您可以使用 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

在行动