Диалоговое окно Printform появляется в PrintPreview
Я создал приложение для расчета климатической техники. Все в порядке ( мой последний вопрос в этом приложении), но я столкнулся с новой проблемой. Когда я нажимаю кнопку печати и затем выбираю принтер, в диалоговом окне предварительного просмотра отображаются следы диалога выбора принтера.
Я пробовал функцию сна в разных рядах, но она не работает. Как я могу исправить свое приложение? Вот мой код:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Visible = False
ComboBox1.Visible = False
PrintDialog1.PrinterSettings = PrintForm1.PrinterSettings
PrintDialog1.AllowSomePages = True
If PrintDialog1.ShowDialog = DialogResult.OK Then
Thread.Sleep(3000)
With Me.PrintForm1
PrintForm1.PrinterSettings = PrintDialog1.PrinterSettings
.PrintAction = Printing.PrintAction.PrintToPreview
Dim MyMargins As New Margins
With MyMargins
.Left = 40
.Right = 40
.Top = 40
.Bottom = 40
End With
.PrinterSettings.DefaultPageSettings.Margins = MyMargins
PrintForm1.DocumentName = notasyon_lbl.Text
.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.CompatibleModeClientAreaOnly)
End With
End If
Me.Close()
End Sub