shosha1985 قام بنشر يوليو 20, 2022 مشاركة قام بنشر يوليو 20, 2022 السلام عليكم كونت عاوز اعرف اذي اعمل اختيارات الطابعه للمعاينه والتقارير والباركود والفواتير ذي ما في المرفق رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يوليو 20, 2022 مشاركة قام بنشر يوليو 20, 2022 فكرة ::::::: يمكن عمل جدول حقولها ( الطابعة الافتراضية - طباعة الباركود - طباعة الريست ............................... ) ثم في زر الطباعة لكل تقرير تحدد الحقل المناسب لها عن طريق هذا الكود ..... ( طبعا الفكرة لم اجربها ولكن تكمن في تغيير الطابعة الافتراضية في كل مرة تريد طابعة تقرير معين حسب الجدول الذي قمت انت بتحديد نوع الطابعة في الحقل الخاص به ) جرب واعلمنا بالنتيجة ..... وممكن عند احد الاخوة طريقة افضل On Error Resume Next Dim strRptName strRptName = "ReportName" DoCmd.SelectObject acReport, strRptName, False SetDefaultPrinter ("fieldName") DoCmd.OpenReport strRptName, acViewNormal 3 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر يوليو 20, 2022 مشاركة قام بنشر يوليو 20, 2022 هذا الكود يحضر لك قائمة بجميع الطابعات المنصبة في جهازك وبياناتها 🙂 تستطيع من خلال التعديل على الكود جعله يحفظ أسماء الطابعات في جدول خاص بها .. Sub ShowPrinters() Dim strCount As String Dim strMsg As String Dim prtLoop As Printer On Error GoTo ShowPrinters_Err If Printers.Count > 0 Then ' Get count of installed printers. strMsg = "Printers installed: " & Printers.Count & vbCrLf & vbCrLf ' Enumerate printer system properties. For Each prtLoop In Application.Printers With prtLoop strMsg = strMsg _ & "Device name: " & .DeviceName & vbCrLf _ & "Driver name: " & .DriverName & vbCrLf _ & "Port: " & .Port & vbCrLf & vbCrLf End With Next prtLoop Else strMsg = "No printers are installed." End If ' Display printer information. MsgBox Prompt:=strMsg, Buttons:=vbOKOnly, Title:="Installed Printers" ShowPrinters_End: Exit Sub وهذا كود ثاني أسهل منه يحضر لك أسماء الطابعات فقط 🙂 Sub ListPrinters() Dim prt As Printer For Each prt In Printers Debug.Print prt.DeviceName Next prt End Sub ثم استخدم هذا الكود لتعيين طابعة معينة لتقرير معين : Sub SetReportPrinter(rptName As String, PrinterName As String) Dim rptName As String DoCmd.OpenReport rptName, acViewPreview Set Reports(rptName).Printer = PrinterName 'Or some printer returned by your search code DoCmd.SelectObject acReport, rptName DoCmd.PrintOut DoCmd.Close acReport, rptName End Sub 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر يوليو 20, 2022 أفضل إجابة مشاركة قام بنشر يوليو 20, 2022 اتفضل يا سيدى SetMultiPrinter.accdb 3 رابط هذا التعليق شارك More sharing options...
shosha1985 قام بنشر يوليو 21, 2022 الكاتب مشاركة قام بنشر يوليو 21, 2022 شكرا للجميع وخاصه ابو جودي ملف ممتاز 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 21, 2022 تم تحديث المرفق بوضع كود تصيد الاخطاء لعدم تكرار الاحتفاظ باسماء الطابعات لنفس جهاز الحاسوب رابط هذا التعليق شارك More sharing options...
أبو امين قام بنشر يوليو 21, 2022 مشاركة قام بنشر يوليو 21, 2022 ما شاء الله عليكم و الله شرفتوا الامة العربية بعلمكم جعل الله اعمالكم في ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.