UserUser2 قام بنشر منذ 23 ساعات مشاركة قام بنشر منذ 23 ساعات (معدل) محتاج اثناء الضغط على زر PDF ياخد اعدادت ال بى دى اف من فورم 2 واثناء الضغط على زر Print report ياخد اعدادت التقرير من فورم 2 NEW_Hedar.accdb تم تعديل منذ 23 ساعات بواسطه UserUser2 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر منذ 21 ساعات مشاركة قام بنشر منذ 21 ساعات اعجبتني الفكرة قيد التنفيذ ... رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر منذ 21 ساعات الكاتب مشاركة قام بنشر منذ 21 ساعات 3 دقائق مضت, ابوخليل said: اعجبتني الفكرة قيد التنفيذ ... فى انتظارك استاذنا الفاضل ☺️ رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر منذ 21 ساعات أفضل إجابة مشاركة قام بنشر منذ 21 ساعات تفضل هذه الدالة في وحدة نمطية عامة من اجل تأخذ القيمة من الجدول بناء على المتغير 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 1 رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر منذ 20 ساعات الكاتب مشاركة قام بنشر منذ 20 ساعات 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 جزاك الله خيرا استاذنا الفاضل وجعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر منذ 18 ساعات الكاتب مشاركة قام بنشر منذ 18 ساعات (معدل) 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 تم تعديل منذ 18 ساعات بواسطه UserUser2 رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر منذ 18 ساعات الكاتب مشاركة قام بنشر منذ 18 ساعات @ابوخليل رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر منذ 11 ساعات مشاركة قام بنشر منذ 11 ساعات تفضل NEW_Hedar4.rar رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر منذ 2 ساعات الكاتب مشاركة قام بنشر منذ 2 ساعات 8 ساعات مضت, ابوخليل said: تفضل NEW_Hedar4.rar 87.03 kB · 1 download جزاك الله خيرا استاذنا الفاضل وجعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان