Диалоговое окно печати

Диалоговое окно печати можно вызвать с помощью элемента управления

commonDialog, заменив код в событии click кнопки с наименованием cbControl на следующий:

Private Sub cbControl_Click()

cdlMyDialog.ShowPrinter

End Sub

Открытое диалоговое окно показано на рис. 7.27.

Если требуется предварительно настраивать печать, то необходимо установить для свойства Flags значение cdlPDPrintSetup. В этом случае код будет выглядеть следующим образом:

Private Sub cbControl_Click()

cdlMyDialog.Flags = cdlPDPrintSetup

cdlMyDialog.ShowPrinter

End Sub

Запустив приложение MySmallProject, вы получите диалоговое окно

Таблица 7.15. Значения для метода Flags диалогового окна печати