درمورد PrintDocument

[tto_baran]

با سلام

با استفاده از کد زیر از صفحه ی تنظیم شده پرینت میگیرم مشکل اینجاست . امکان انصراف از چاپ وجود ندارد و حتی با کنسل کردن هم باز عملیات پرینت به انجام می رسد.

  Dim objprinterdlg As New PrintDialog

        objprinterdlg.ShowDialog()

        '---------------------

        pd1.PrinterSettings = objprinterdlg.PrinterSettings

        '---------------------

        pd1.PrintController() = New System.Drawing.Printing.StandardPrintController()



    pd1.Print()

[ROSTAM2]

با سلام

با استفاده از کد زیر از صفحه ی تنظیم شده پرینت میگیرم مشکل اینجاست . امکان انصراف از چاپ وجود ندارد و حتی با کنسل کردن هم باز عملیات پرینت به انجام می رسد.

  Dim objprinterdlg As New PrintDialog

        objprinterdlg.ShowDialog()

        '---------------------

        pd1.PrinterSettings = objprinterdlg.PrinterSettings

        '---------------------

        pd1.PrintController() = New System.Drawing.Printing.StandardPrintController()



    pd1.Print()

سلام

متود ShowDialog تابع هست یا سابروتین؟!
اگر تابع هست مقدار برگشتیش باحتمال زیاد DialogResult باشه که با دستور شرطی If می تونید دستور رو مدیریت کنید:

If .ShowDialog = Cancel Then Exit Sub

[tto_baran]

با عرض معذرت دوستان بعلت مشغله ی کاری نشد زود تر پست کنم.

برای حل این مشکل قطعه کد را به صورت زیر تغییر دادم.

 Dim objprinterdlg As New PrintDialog

  

        pd.PrinterSettings = objprinterdlg.PrinterSettings

   

        pd.PrintController() = New System.Drawing.Printing.StandardPrintController()



        If ((Windows.Forms.DialogResult.OK) = (objprinterdlg.ShowDialog)) Then



            pd.Print()





        Else

            Exit Sub

        End If

[ROSTAM2]

سلام مجدد...

دستور رو می تونید به این شکل بنویسید:

 With New PrintDialog

            ' Set Statements....

            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub

            ' Print Statement....

        End With

[tto_baran]

تشکر دوست گرامی

سلام مجدد...

دستور رو می تونید به این شکل بنویسید:

 With New PrintDialog

            ' Set Statements....

            If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub

            ' Print Statement....

        End With