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

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

UserUser2

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

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة ابوخليل,

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

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