اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

التحكم في اعدادت راس وذيل التقرير

UserUser2

بواسطه UserUser2
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

UserUser2

UserUser2

قام بنشر
قام بنشر (معدل)

محتاج اثناء الضغط على زر PDF ياخد اعدادت ال بى دى اف  من فورم 2 
واثناء الضغط على زر Print report ياخد اعدادت التقرير من فورم 2 NEW_Hedar.accdb

تم تعديل بواسطه UserUser2
  • أفضل إجابة
ابوخليل

ابوخليل

قام بنشر
  • أفضل إجابة
قام بنشر

تفضل

هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير getPrintOrPdf 

قيمة هذا المتغير  تأخذ 1 أو 2  وقت النقر على الازرار .. زر الطباعة =1  وزر البي دي اف =2 

Public getPrintOrPdf As Byte

Public Function funReportPrintOrPdf() As Byte
Dim prntNon, prntWrd, prntPic, pdfNon, pdfWrd, pdfPic
prntNon = DLookup("Non", "Reportsettings_tbl")
prntWrd = DLookup("Words", "Reportsettings_tbl")
prntPic = DLookup("Photo", "Reportsettings_tbl")
pdfNon = DLookup("NotHDFot", "Reportsettings_tbl")
pdfWrd = DLookup("WORDPDF", "Reportsettings_tbl")
pdfPic = DLookup("IMAGEPDF", "Reportsettings_tbl")
If getPrintOrPdf = 1 Then
If prntNon = True Then funReportPrintOrPdf = 1
If prntWrd = True Then funReportPrintOrPdf = 2
If prntPic = True Then funReportPrintOrPdf = 3
ElseIf getPrintOrPdf = 2 Then
If pdfNon = True Then funReportPrintOrPdf = 1
If pdfWrd = True Then funReportPrintOrPdf = 2
If pdfPic = True Then funReportPrintOrPdf = 3
End If
End Function

 وهذه الاكواد في محرر التقرير

اخفاء الرأس والذيل في حدث فتح التقرير

والتحكم في النص والصورة في حدث الطباعة للرأس والذيل 

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA2.Visible = True
Me.HLA2.Visible = True
Me.footerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA2.Visible = False
Me.HLA2.Visible = False
Me.footerimage.Visible = True
End If
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA.Visible = True
Me.HLA.Visible = True
Me.Headerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA.Visible = False
Me.HLA.Visible = False
Me.Headerimage.Visible = True
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Call funReportPrintOrPdf
If funReportPrintOrPdf = 1 Then
Me.PageHeaderSection.Visible = False
Me.PageFooterSection.Visible = False
Else
Me.PageHeaderSection.Visible = True
Me.PageFooterSection.Visible = True
End If
End Sub

 

NEW_Hedar2.rar

  • Like 1
  • ابوخليل changed the title to التحكم في اعدادت راس وذيل التقرير
UserUser2

UserUser2

قام بنشر
  • الكاتب
قام بنشر
43 دقائق مضت, ابوخليل said:

تفضل

هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير getPrintOrPdf 

قيمة هذا المتغير  تأخذ 1 أو 2  وقت النقر على الازرار .. زر الطباعة =1  وزر البي دي اف =2 

Public getPrintOrPdf As Byte

Public Function funReportPrintOrPdf() As Byte
Dim prntNon, prntWrd, prntPic, pdfNon, pdfWrd, pdfPic
prntNon = DLookup("Non", "Reportsettings_tbl")
prntWrd = DLookup("Words", "Reportsettings_tbl")
prntPic = DLookup("Photo", "Reportsettings_tbl")
pdfNon = DLookup("NotHDFot", "Reportsettings_tbl")
pdfWrd = DLookup("WORDPDF", "Reportsettings_tbl")
pdfPic = DLookup("IMAGEPDF", "Reportsettings_tbl")
If getPrintOrPdf = 1 Then
If prntNon = True Then funReportPrintOrPdf = 1
If prntWrd = True Then funReportPrintOrPdf = 2
If prntPic = True Then funReportPrintOrPdf = 3
ElseIf getPrintOrPdf = 2 Then
If pdfNon = True Then funReportPrintOrPdf = 1
If pdfWrd = True Then funReportPrintOrPdf = 2
If pdfPic = True Then funReportPrintOrPdf = 3
End If
End Function

 وهذه الاكواد في محرر التقرير

اخفاء الرأس والذيل في حدث فتح التقرير

والتحكم في النص والصورة في حدث الطباعة للرأس والذيل 

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA2.Visible = True
Me.HLA2.Visible = True
Me.footerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA2.Visible = False
Me.HLA2.Visible = False
Me.footerimage.Visible = True
End If
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA.Visible = True
Me.HLA.Visible = True
Me.Headerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA.Visible = False
Me.HLA.Visible = False
Me.Headerimage.Visible = True
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Call funReportPrintOrPdf
If funReportPrintOrPdf = 1 Then
Me.PageHeaderSection.Visible = False
Me.PageFooterSection.Visible = False
Else
Me.PageHeaderSection.Visible = True
Me.PageFooterSection.Visible = True
End If
End Sub

 

NEW_Hedar2.rar 81.64 kB · 3 downloads

جزاك الله خيرا استاذنا الفاضل وجعله الله في ميزان حسناتك 

UserUser2

UserUser2

قام بنشر
  • الكاتب
قام بنشر (معدل)
3 ساعات مضت, ابوخليل said:

تفضل

هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير getPrintOrPdf 

قيمة هذا المتغير  تأخذ 1 أو 2  وقت النقر على الازرار .. زر الطباعة =1  وزر البي دي اف =2 

Public getPrintOrPdf As Byte

Public Function funReportPrintOrPdf() As Byte
Dim prntNon, prntWrd, prntPic, pdfNon, pdfWrd, pdfPic
prntNon = DLookup("Non", "Reportsettings_tbl")
prntWrd = DLookup("Words", "Reportsettings_tbl")
prntPic = DLookup("Photo", "Reportsettings_tbl")
pdfNon = DLookup("NotHDFot", "Reportsettings_tbl")
pdfWrd = DLookup("WORDPDF", "Reportsettings_tbl")
pdfPic = DLookup("IMAGEPDF", "Reportsettings_tbl")
If getPrintOrPdf = 1 Then
If prntNon = True Then funReportPrintOrPdf = 1
If prntWrd = True Then funReportPrintOrPdf = 2
If prntPic = True Then funReportPrintOrPdf = 3
ElseIf getPrintOrPdf = 2 Then
If pdfNon = True Then funReportPrintOrPdf = 1
If pdfWrd = True Then funReportPrintOrPdf = 2
If pdfPic = True Then funReportPrintOrPdf = 3
End If
End Function

 وهذه الاكواد في محرر التقرير

اخفاء الرأس والذيل في حدث فتح التقرير

والتحكم في النص والصورة في حدث الطباعة للرأس والذيل 

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA2.Visible = True
Me.HLA2.Visible = True
Me.footerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA2.Visible = False
Me.HLA2.Visible = False
Me.footerimage.Visible = True
End If
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
If funReportPrintOrPdf = 2 Then
Me.HRA.Visible = True
Me.HLA.Visible = True
Me.Headerimage.Visible = False
ElseIf funReportPrintOrPdf = 3 Then
Me.HRA.Visible = False
Me.HLA.Visible = False
Me.Headerimage.Visible = True
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
Call funReportPrintOrPdf
If funReportPrintOrPdf = 1 Then
Me.PageHeaderSection.Visible = False
Me.PageFooterSection.Visible = False
Else
Me.PageHeaderSection.Visible = True
Me.PageFooterSection.Visible = True
End If
End Sub

 

NEW_Hedar2.rar 81.64 kB · 5 downloads

كيفيه التطبيق بوضع تقرير فرعى فى راس التقرير وذيل التقرير 

مرفق الملف 
NEW_Hedar3.rar

تم تعديل بواسطه UserUser2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept