Printable View
با سلام
با استفاده از کد زیر از صفحه ی تنظیم شده پرینت میگیرم مشکل اینجاست . امکان انصراف از چاپ وجود ندارد و حتی با کنسل کردن هم باز عملیات پرینت به انجام می رسد.
Dim objprinterdlg As New PrintDialog
objprinterdlg.ShowDialog()
'---------------------
pd1.PrinterSettings = objprinterdlg.PrinterSettings
'---------------------
pd1.PrintController() = New System.Drawing.Printing.StandardPrintController()
pd1.Print()
سلامنقل قول:
نوشته شده توسط tto_baran
متود ShowDialog تابع هست یا سابروتین؟!
اگر تابع هست مقدار برگشتیش باحتمال زیاد DialogResult باشه که با دستور شرطی If می تونید دستور رو مدیریت کنید:
If .ShowDialog = Cancel Then Exit Sub
با عرض معذرت دوستان بعلت مشغله ی کاری نشد زود تر پست کنم.
برای حل این مشکل قطعه کد را به صورت زیر تغییر دادم.
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
سلام مجدد...
دستور رو می تونید به این شکل بنویسید:
With New PrintDialog
' Set Statements....
If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
' Print Statement....
End With
تشکر دوست گرامینقل قول:
نوشته شده توسط ROSTAM2