Диалоговое окно 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

0 ответов

Другие вопросы по тегам