Показать диалоговое окно печати для печати листа Excel из MS Access VBA

Question

Я хочу напечатать лист Excel (один лист), который хранится в пути локального компьютера с помощью нажатия кнопки в форме MS Access. По некоторым деловым причинам мне нужно предоставить гибкость, чтобы отобразить диалоговое окно настроек печати, которое мы обычно получаем, если мы печатали лист Excel извне, чтобы пользователь мог выбрать принтер, выбрать, какую часть листа печатать, копировать для печати и т. Д. c. В настоящее время у меня есть код, как показано ниже: -

Private Sub cmdPrint_Click()
    'wks is already set to Excel sheet which needs to be printed
    wks.PrintOut
End Sub

Я пытаюсь также использовать что-то вроде, как показано ниже, но не уверен, как подключить метод Printout с xlDialogPrint

 ExcelApp.Dialogs(xlDialogPrint).Show

Я борюсь с тем, что код будет делать это в MS Access VBA.

Answer 1

Приведенный ниже код откроет Excel, а затем откроет интерфейс печати, чтобы пользователь мог выбрать для печати любой лист с фокусом.

Sub PrintSheet()
Dim xl As Excel.Application, wb As Excel.Workbook
Set xl = CreateObject("Excel.Application")
Set wb = xl.Workbooks.Open("C:\filepath\filename.xlsx")
xl.Visible = True
xl.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub