Ctrl-P
Excel 2013でエミュレートしようとしています。左側に印刷ダイアログボックスが表示され、右側に印刷プレビューが表示されます。
(プレビューが表示される場所では、常に"Show Print Preview"
最初にクリックする必要があります。プレビューを毎回強制的に表示する方法が見つからないようです)。
私は以下を試しました:
Application.Dialogs(xlDialogPrint).Show
これは、[プレビュー]ボタンをクリックする必要がある古いスタイルのダイアログボックスを示しています。
ActiveSheet.PrintPreview
これはプレビューを表示しますが、同じ画面からプリンターを変更することはできません
このようなもの?
Excel
Option Explicit
Public Sub Example()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
CommandBars.ExecuteMsoメソッド(MSDN) は、特定のコマンドのオブジェクトモデルがない場合に便利なメソッドです。
Outlookの場合
Option Explicit
Public Sub Example()
Dim Inspector As Outlook.Inspector
Set Inspector = Application.ActiveInspector
If Not Inspector Is Nothing Then
Dim cmd As Office.CommandBars
Set cmd = Inspector.CommandBars
cmd.ExecuteMso ("FilePrintPreview")
Else
ActiveExplorer.selection(1).Display
Set cmd = ActiveInspector.CommandBars
cmd.ExecuteMso ("FilePrintPreview")
End If
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加