Vb.net PrintWriter ничего не выводит

Question

Я разрабатываю приложение в vb.net. Выходная форма показана ниже. Он имеет кнопку PRINT для печати компонентов в форме. Я имею в виду, что он должен печатать всю форму, когда я нажимаю кнопку печати. Я написал следующий код на кнопке PRINT

PrintDialog1.Document = PrintDocument1 
    Dim result As DialogResult = PrintDialog1.ShowDialog 
    If (result = DialogResult.OK) Then 
     PrintDocument1.Print() 
End If 

Но проблема в том, что он не печатает форму. Вместо этого он печатает пустую страницу.

Может кто-то сказать, что это ошибка в моем коде, и как напечатать страницу, как на картинке выше. Заранее спасибо

Answer 1

Наконец, я нашел решение

Вместо использования PrintDialog и PrintDocument, используйте PrintForm контроль.

и код должен быть

On Error GoTo handler 
    PrintForm1.Print() 
    Exit Sub 
handler: 
    MsgBox("error") 

Теперь моя проблема решена.

Answer 2

STEP1: Импорт имен, как Импорт System.Drawing.Printing

Шаг2: AT VisualBasic PowerPacks И ИСПОЛЬЗОВАТЬ "PrintForm" инструмент из ToolBox.

STEP3: создать кнопку и дважды щелкните его и скопируйте нижеприведенный код

  PrintForm1.PrintAction = PrintAction.PrintToPreview 
     PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.FullWindow)