درمورد 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