اذهب الي المحتوي
أوفيسنا

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

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
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept