تنظیم بزرگنمایی گزارش اکسس

فرض کنید که بر روی یک فرم دکمه ای دارید که کاربر با کلیک بر روی آن می تواند یک گزارش خاص را باز نماید .
در حالت عادی گزارش های اکسس در حالت و در یک بزرگنمایی معمولی باز می شوند اما در این ترفند خواهیم آموخت که چگونه این گزارش در نمای پرینت به کاربر نمایش داده شود تا در صورت نیاز کاربر بتواند به راحتی از آن پرینت بگیرد و گذشته از آن امکانی را در اختیار کاربر بگذاریم که خود بتواند بزرگنمایی مد نظر خود را برای نمایش گزارش انتخاب نماید .

برای آشنایی با این روش در ادامه مطلب همراه من باشید .
1. ابتدا گزارش خود را ایجاد نموده و آن را با یک نام مشخص ذخیره نمایید  بعنوان مثال  من در اینجا نام rptgoods را برای گزارش خود انتخاب نموده ام .

2. بعد از ایجاد گزارش نیاز به ایجاد یک فرم و قرار دادن یک command bottun  با یک نام مشخص دارید من در اینجا نام cmd1  را برای این دکمه انتخاب نموده ام ..
3. اکنون همانطور که در نمای طراحی فرم قرار دارید با استفاده از کلیدهای ترکیبیALT+F11 به محیط VBA برنامه خود ر فته از منوی insert گزینه module را انتخاب نمایید .
 ماژول دراکسس

4. اکنون کدهای زیر را وارد محیط ماژول خود نموده و با ذخیره آنها  از این محیط خارج شوید .

Function PreviewAndZoomReport(ReportName As String, ZoomCoeff As Integer)

    On Error GoTo Error_Handler
 
    If Not (ZoomCoeff >= 0 And ZoomCoeff <= 1000) Then
        ZoomCoeff = 0
    End If
 
    With DoCmd
        .OpenReport ReportName, View:=acViewPreview
        .Maximize
    End With
    Reports(ReportName).ZoomControl = ZoomCoeff
 
    Exit Function
Error_Handler:
    MsgBox Err.Description
    Resume Next
End Function
5. حال در رویداد مربوط به  on click دکمه ای که بر روی فرم خود برای ایجاد گزارش قرار داده اید روال زیر را وارد نمایید .

Private Sub cmd1_Click()
Dim i As Integer
i = InputBox(" انتخاب بزرگنمایی ", "لطفا  بزرگ نمایی مورد نظر برای نمایش  گزارش را وارد نمایید ")
Call PreviewAndZoomReport("rptgoods", i)
   
End Sub
حال کافی است فرم خود را اجرا نموده و بر روی دکمه مورد کلیک نمایید تا پنجره تعیین بزرگنمایی برای شما نمایش داده شود و بعد از تعیین بزرگنمایی مورد نظر گزارش شما ایجاد گردد .
نکته : اگر گزارش شما نام متفاوتی از این گزارش دارد نام گزارش مورد نظر خود را جایگزین عبارت قرمز رنگ در کد بالا نمایید .

خواندن این مطالب را نیز  از دست ندهید :
- سیستم نوبت دهی در اکسس بر مبنای تاریخ شمسی
- جلوگیری از داده تکراری در فرم های اکسس
-رسم دایره دور مقادیر مورد نظر در گزارش های اکسس





طبقه بندی: آموزش ACCESS،
برچسب ها:کدهای VBA، module، گزارش، بزرگنمایی،
تاریخ : سه شنبه 3 بهمن 1396 | 07:11 ق.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.