PDA

View Full Version : مقدار دهی PaperSize



reza10203045
چهارشنبه 30 بهمن 1387, 12:40 عصر
با سلام خدمت همه شما دوستان عزیز
لطفا اگه می تونی کمک کنید من به یه مشکلی برخوردم انم اینه که نم تونم مقدار


e.PageSettings.PaperSize

مقدار دهی کنم من می خوام اندازه کاغذ برابر A4 باشه
ممنون میشم راهنمای کنید

anooshiran
چهارشنبه 30 بهمن 1387, 18:46 عصر
با سلام خدمت همه شما دوستان عزیز
لطفا اگه می تونی کمک کنید من به یه مشکلی برخوردم انم اینه که نم تونم مقدار


e.PageSettings.PaperSize

مقدار دهی کنم من می خوام اندازه کاغذ برابر A4 باشه
ممنون میشم راهنمای کنید


دوست عزيز سلام

تا آنجايي كه من ميدانم A4 فقط يك PaperName اسن و مقادير خاصي را بر نمي گرداند و شما بايد براي set كردن سايز اندازه هاي كاغذ A4 رابدهيد
مانند كد زير


e.PageSettings.PaperSize("A4", 21, 29.7)

reza10203045
چهارشنبه 30 بهمن 1387, 20:29 عصر
ممنون دوست عزیز از لطف شما حداقل یکی پیدا شد که جواب بده
ولی دوست عزیز این خطا رو میده به عکس زیر نگاه کنید

28435

anooshiran
چهارشنبه 30 بهمن 1387, 20:43 عصر
دوست عزيز سلام

اگر برايت امكان دار اين sub كه نمايش دادي رو كامل برايم بفرست تا دليل error را ببينم

reza10203045
چهارشنبه 30 بهمن 1387, 21:30 عصر
بفرما دوست عزیز اینم کد البته برنامه خودم حجمش زیاد بود نتونستم آپلود کنم ولی تو برنامه خودم از این کد استفاده کردم این برنامه دارای کلاسی که یک دیتا گرید رو میگیره و اطلاعاتشو چاپ میکنه حالا من میخوام اندازه کاغذ رو تعیین کنم ممنون از لطف شما

sm4899
چهارشنبه 30 بهمن 1387, 23:22 عصر
rptEmployee.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperA4

anooshiran
پنج شنبه 01 اسفند 1387, 00:38 صبح
سلام دوست عزيز

من به كل برنامه شما نياز نداشتم . فقط همينSUb رو كه درآن ميخواهي سايز تعريف كني نياز داشتم تا ببينم event چيه . برنامه اي هم كه فرستادي كلاسي است كه اكثر كاربران اون دانلود كردن و دارن.

به هر حال با وجود اينكه محيط كارت رو درست نمي شناسم ولي اين كد ها را برايت ميذارم شايد به دردت بخوره




Dim Paper_Kind As System.Drawing.Printing.PaperKind
Paper_Kind = PaperKind.A4
Dim Paper_Size As New System.Drawing.Printing.PaperSize
Paper_Size.Height = (29.7 / 2.54) * 100
Paper_Size.Width = (21 / 2.54) * 100
Paper_Size.PaperName = "A4"
e.PageSettings.PaperSize = Paper_Size


اگر e.PageSettings.PaperSize = Paper_Size مقدار نگرفت مي تواني به جاي آن كدهاي زير را وارد كني



e.PageSettings.PaperSize.Height = Paper_Size.Height
e.PageSettings.PaperSize.Width = Paper_Size.Width
e.PageSettings.PaperSize.PaperName = Paper_Size.PaperName



اميدوارم مشكلت با اين كدها حل بشه
در هر صورت اگر نشد آن sub را برايم بفرست تاببينم چه مي شود كرد.