vba - Word ダイアログを VB に変換する

Question

あらゆるタイプのコーディングを行ってから長い時間が経ちました。シフト開始前に、テスト ページ (古いテレビのテスト パターン ページのように見える) をすべてのプリンターに送信するように依頼されました。これらのページは、プリンターに物理的な問題 (不良トナー、フューザーなど) があるかどうかをチームが判断するのに役立ちます。このコードを見つけて、VBA (MS Word) で使用しました。

 Sub Sorterprint01()
Dim sPrinter As String
Dim sPrinter1 As String
With Dialogs(wdDialogFilePrintSetup)
sPrinter = .Printer
.Printer = "\\dc999nt09\USPRT_01"
.DoNotSetAsSysDefault = True
.Execute
Application.PrintOut FileName = "\\dc999file\share\7yr\Support\IS_TEAM_LOCAL\TEST SHEETS\BARCODE TEST SORTER01.docx"
.Printer = sPrinter
.Execute
End With

End Sub

すべてのプリンターまたは特定のプリンターに印刷するフォームも作成しました。
経営陣は、これを Word のドキュメントで行うことを望んでおらず、VB アプリで使用することを好みます (Web ベースの方がよいでしょう)。広範な調査の結果、wdDialogFilePrintSetup は WORD ベースのダイアログであり、VB6/2008/2013 では機能しないことがわかりました)。コーディングに戻ったばかりで、迅速な解決策が必要です。