PDA

View Full Version : چطوری میشه report ها را به انداز دلخواه دار آورد ؟



naser_moein
شنبه 27 فروردین 1384, 16:23 عصر
سلام من می خواهم بدونم که جطوری می تونم report رو به اندازه دلخواهم در بیارم که لازم نباشه که هر بار کاربر اونارو تنظیم کنه البته کد هاش از help درآوردم اما نتونستم ازش استفاده کنم لطفا هر چه زودتر کمکم کنید

البته من این و واسه یه برنامه می خوام که واسه یه استخر درست کردام .

اگه تموم بشه میدام تا همه ازش استفاده کنن . چون خیلی با حال ه .

سنبله کار
سه شنبه 30 فروردین 1384, 11:02 صبح
بیشتر توضیح بدین .

naser_moein
یک شنبه 18 اردیبهشت 1384, 14:15 عصر
منظورام اینکه میخوام سایز کاغذ مثلا A4 یا A5 رو به صورت از پیش تنظیم شده باشد یعنی بتونیم هر موقه که بخواهیم اندازه ها را تغییر بدهیم به خاطر اینکه اندازههای قابل تنظیم wizard اکسس بعد از مدتی به حالت پیش فرض میرود به همین خاطر تنظیمات ما از بین میرود چون مجبوریم دوباره تنظیمات جدیدی را انجام بدیم مشکلات زیادی برای کاربر ایجاد می شود . ما میخواهیم که این تنظیمات دستی همیشه ثابت بماند .

payam59
دوشنبه 19 اردیبهشت 1384, 08:19 صبح
اگر نوع چاپگر شما سایز موردنظرتون را پشتیبانی کنه فکر نکنم مشکلی پیش بیاد.

سنبله کار
دوشنبه 19 اردیبهشت 1384, 08:53 صبح
کد زیر نحوه تغییر تنظیمات چاپگر و اندازه report شما را در اختیارتان قرار می دهد .

Private Sub cmdPreview_Click()
' Variable to hold the printer object to manipulate.
Dim prt As Printer

' Grab the printer object for the selected printer.
Set prt = Application.Printers(Me!cmbPrinter.Value)

' Read user-specified settings.
prt.PaperSize = Me!cmbPaperSize
prt.Orientation = Me!opgOrientation

' Open the report in preview mode.
DoCmd.OpenReport Me!lbxSelectReport, acViewPreview

' Set the report's printer to the modified printer object.
Reports(Me!lbxSelectReport).Printer = prt

End Sub


این مطالب را از صفحه زیر آوردم که روش پیشنهادی میکروسافت است :
http://office.microsoft.com/en-gb/assistance/HA010345531033.aspx
امیدوارم مناسب باشد . :D

hrh
چهارشنبه 21 اردیبهشت 1384, 14:54 عصر
علاوه بر روش سنبله کار عزیز می توانی در رویداد Open گزارش مربوطه از کدهای زیر استفاده کنی:





Me.Printer.Orientation = acPRORLandscape

Me.Printer.PaperSize = acPRPSA5

و ...

payam59
پنج شنبه 22 اردیبهشت 1384, 08:38 صبح
:موفق: