ذخيره پارامترهاي مربوط به تنظيمات صفحه گزارش از طريق فرم

[nazanin_90]

سلام
من وقتي گزارش برنامه ام در حالت print preview باز است پارامترهاي RightMargin و LeftMargin و .......... گزارش را از طريق يك فرم تغيير ميدهم ؛ اما ميخواهم اين تغيير ذخيره شود ؛ ولي ظاهراً اين كار در نه در حالت print preview و نه در حالت ديزاين انجام نميشود و شايد من راهكار آن را نميدانم.
با سپاس

[as222222]

سلام
من وقتي گزارش برنامه ام در حالت print preview باز است پارامترهاي RightMargin و LeftMargin و .......... گزارش را از طريق يك فرم تغيير ميدهم ؛ اما ميخواهم اين تغيير ذخيره شود ؛ ولي ظاهراً اين كار در نه در حالت print preview و نه در حالت ديزاين انجام نميشود و شايد من راهكار آن را نميدانم.
با سپاس
-------------------------------------------------------------------------------------------------------------------------
سلام
بنظر من شما میتونید یک تیبل ایجاد کنید و در آن chkboxایجاد کرده سپس یک فورم ایجاد نید و دستور را در چک باکس بنویسد البته چک باکس درون فورم باید به فیلد تیبل ارتباط داشته باشد و فورم هم از نوع modela باشد سپس در قسم load riport باید دستوری بنویسد که آیا چک باکس شما false یا trueاست که اگر باشد دستور را اجرا کند فکر کنم ی مقداری گیج کننده است ولی من خودم خیلی دنبالش بودم و خودم یک دفع به زهنم رسید و الان هم ازیک فورم جداگانه دارم کنترلهای یک شی را در فورم جداگانه دیگر کنترل میکنم به طوری که باز یا بسته شدن برنامه هم روشون تاثیر نداره و هنگاه کار دستور از فورم تنظیمات اجرا میشه خدانگهدار
:لبخندساده::متفکر:

[alirezabahrami]

سلام
من وقتي گزارش برنامه ام در حالت print preview باز است پارامترهاي RightMargin و LeftMargin و .......... گزارش را از طريق يك فرم تغيير ميدهم ؛ اما ميخواهم اين تغيير ذخيره شود ؛ ولي ظاهراً اين كار در نه در حالت print preview و نه در حالت ديزاين انجام نميشود و شايد من راهكار آن را نميدانم.
با سپاس
سلام
ازکد زیر استفاده کن !
نیاز به توضیح نداره همه چی آن واضحه.
موفق باشید


Dim sRpt As String, rpt As Report, prt As Printer
sRpt = "NameReport"
DoCmd.OpenReport sRpt acViewDesign, "", "", acHidden
'Set the printer to default
Set rpt = Reports(sRpt)
rpt.UseDefaultPrinter = True

'set the prt object to the Application printer
Set prt = rpt.Printer

With prt

'Margins
.LeftMargin = 567 ' in units of twips 1"=1440twips / 10mm = 567twips
.RightMargin = 567
.TopMargin = 567
.BottomMargin = 567

'Orientation
.Orientation = acPRORLandscape

'Column / Row Spacing
.ColumnSpacing = 360
.RowSpacing = 0

End With

DoCmd.Close ObjectType:=acReport, ObjectName:=sRpt, Save:=acSaveYes