Предварительный просмотр
Печать простейших документов в VB.NET требует несколько больших усилий, чем в VB6, зато режим предварительного просмотра реализуется гораздо проще. Для этого от вас потребуется лишь назначить объект PrintDocument свойству Document экземпляра PrintPreviewDialog.
Так, следующий фрагмент почти полностью совпадает с кодом, приведенным выше, однако он реализует предварительный просмотр вместо вывода на принтер. Результаты его выполнения показаны на рис. 8.25:
Private Sub btnPreview_Click(ByVal sender As System.Object. ByVal e As System.EventArgs) Handles btnPreview.Click Dim PrintPreviewDialogl As New PrlntPreviewDialog() PrintPreviewDlalogl.Document = PrintDocumentl If PrintPreviewDialogl.ShowDialog() = DialogResult.OK Then PrintDocumentl.Print() End If End Sub
Рис. 8.25. Режим предварительного просмотра