PDA

View Full Version : سوال: خروجی گزارش در TIFF


M59alizadeh
سه شنبه 08 اردیبهشت 1388, 13:47 عصر
دوستان سلام :
چطور میشه خروجی یک گزارش رو در برنامه در یک فایل با پسوند TIF و بصورت خودکار ذخیره نمود .
با تشکر .
مهدی قربانی
چهارشنبه 09 اردیبهشت 1388, 14:45 عصر
سلام
فرمت TIF بصورت پيشفرض در اكسس پشتيباني نميشه .
M59alizadeh
دوشنبه 14 اردیبهشت 1388, 19:17 عصر
سلام دوست عزیز
با عرض معذرت از تاخیری که پیش آمد مسافرت بودم .
من در حقیقت میخام خروجی گزارشم رو به یک فرمت Image مثل TIF یا JPEG ارسال کنم
آیا چنین امکانی در اکسس وجود داره و یا میشود چنین امکانی رو به برنامه افزود .
ممنون میشم اگر راهنمایی بفرمایید .
با تشکر از لطف شما .
مهدی قربانی
سه شنبه 15 اردیبهشت 1388, 00:30 صبح
سلام
دوست عزيز با امكانات فعلي اكسس دو راه پيش روي شماست اول اينكه شما گزارشتنون رو به Snapshot اكسپورت كنيد كه در اين صورت كاربر بايد برنامه Snapshot viewer رو داشته باشه ( معمولاً همراه آفيس نصب ميشه و موجوده ) يا گزارشتنون رو تبديل به PDF‌ كنيد .
M59alizadeh
شنبه 26 اردیبهشت 1388, 14:47 عصر
مهندس جان من اینو پیدا کردم اما نمیتونم باهاش کار کنم میتونی راهنمایی کنی ؟


sDirectoryName = BrowseDirectory("Find and select where to export the Image file.")
txtFileLocation = sDirectoryName
strRpt = "MonthlyCostByGroupings"
DoCmd.OpenReport strRpt, acViewPreview
Dim grpApp As Object
Set grpApp = Reports!MonthlyCostByGroupings.OLEUnbound0.Object
grpApp.Export txtFileLocation & "\Chart.jpg"
Reports!MonthlyCostByGroupings.OLEUnbound0.Locked = False
Reports!MonthlyCostByGroupings.OLEUnbound0.Enabled = True
Set grpApp = Nothing
Reports!MonthlyCostByGroupings.Action = acOLEClose

با تشکر .
مهدی قربانی
شنبه 26 اردیبهشت 1388, 17:47 عصر
سلام
نمونه كاملي كه اين كدها در اون استفاده شده رو مي تونيد اينجا بذاريد ؟
M59alizadeh
شنبه 26 اردیبهشت 1388, 17:55 عصر
این نمونه رو لطفا ببینید .
ممنون .
مهدی قربانی
شنبه 26 اردیبهشت 1388, 18:57 عصر
سلام
اين نمونه فقط قادره نمودار موجود در گزارشات اكسس رو به فرمت jpg‌اكسپورت كنه نه كل گزارشو .