تعیین چاپ کریستال ریپورت توسط کاربر

[hozouri]

سلام : با عرض خسته نباشید

من این سوال رو در تاپیک دیگه ای هم مطرح کردم اما نتیجه ای نگرفتم

http://barnamenevis.org/forum/showthread.php?t=132235


من می خواستم برنامه ای بنویسم که یک در کریستال ریپورت ویور کاربر یک با پرینتر را انتخاب کرده و توسط کد به طور اتوماتیک هر موقعی که احتیاج به گزارش شد چاپ بشه از دستور PrintReport در خود کریستال ریپورت ویور امتحان کردم اما هر دفعه اسم پرینتر رو می خواد با فضای نامی CrystalDecisions.CrystalReports.Engine هم کار کردم اما وقتی می خوام پرینت بگیرم ابعاد کاغذ Letter شده در صورتی که من A4 انتخاب کرده بودم .


یا

چه طور می تونم از طریق کد نویسی نام پرینتر , اندازه ورق و ... رو برای چاپ در کرستال ریپورت ویور تنظیم کنم دستور چاپش هم که دیگه معلومه.

با تشکر

[Sub Zero]

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
.
.
.
Sub PrintReport()

Dim myReport As New ReportName
myReport.PrintOptions.PrinterName = "PrinterName"
myReport.PrintOptions.PaperSize = PaperSize.PaperA4
myReport.PrintOptions.PrinterDuplex = PrinterDuplex.Default
'-------------------------------------------------------------
Dim myMargins = myReport.PrintOptions.PageMargins
myMargins.topMargin = 10
myMargins.bottomMargin = 10
myMargins.leftMargin = 10
myMargins.rightMargin = 10
myReport.PrintOptions.ApplyPageMargins(myMargins)
'Print Report From Page 1 To Page 999
myReport.PrintToPrinter(1, True, 1, 999)
End Sub

[y.saied]

باسلام ........ جناب SUB Zero اگه ميشه يه مثال بذارين ................... ممنون

[dieloop]

با سلام
ین سایز صفحه برای پرینتر طبق کد :
myReport.PrintOptions.PaperSize = PaperSize.PaperA4
معلومه و کاملا درست ....... اما اگه بخواهیم سایز صفحه غیر از سایزهای استاندارد مثل A4 و ... باشه چی ؟ اینا که دیگه تو PaperSize نیستند؟ خواهشا کمکم کنین چون خیلی اذیتم می کنه