Иллюстрированный самоучитель по Visual Basic .NET

Предварительный просмотр

Печать простейших документов в 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. Режим предварительного просмотра