kkhalifa1960

1. إعداد التقرير (Report) في Access أ. إنشاء التقرير: افتح قاعدة البيانات في Access. انتقل إلى تبويب Create > Report Design. صمم التقرير يدويًا أو استخدم Report Wizard لإنشاء فاتورة بسيطة. ب. تخصيص التقرير للطباعة الحرارية: العرض (Width): للطابعات الحرارية (عرض 58 مم أو 80 مم)، اضبط عرض التقرير في Property Sheet (وحدة القياس: سنتمترات أو بوصة😞 58 مم ≈ 2.28 بوصة. 80 مم ≈ 3.15 بوصة. مثال: ' لضبط العرض في كود VBA Reports("InvoiceReport").Width = 3.15 * 1440 ' (البوصة إلى Twips) المحتوى: أضف عناصر التقرير (مربعات النص) للبيانات الأساسية: اسم المتجر، التاريخ، رقم الفاتورة، العناصر، الإجمالي. استخدم خطوطًا بسيطة مثل Arial أو Courier New بحجم مناسب (مثال: 8-10pt للتفاصيل، 12pt للعناوين). 2. إعدادات الطباعة عبر VBA أ. تحديد الطابعة الحرارية: Sub SetThermalPrinter() Dim prt As Printer For Each prt In Application.Printers If prt.DeviceName Like "*Thermal*" Then ' استبدل بـاسم طابعتك Set Application.Printer = prt Exit For End If Next prt End Sub ب. ضبط إعدادات الطباعة: Sub PrintInvoiceReport() ' تعيين الطابعة الحرارية Call SetThermalPrinter ' ضبط إعدادات التقرير قبل الطباعة With Reports("InvoiceReport") .Printer.Orientation = acPortrait ' أو acLandscape إذا needed .Printer.PaperSize = acPRPSUser ' حجم ورقة مخصص .Printer.PaperWidth = 3.15 ' لبوصة (لـ 80 مم) .Printer.PaperHeight = 0 ' طول غير محدود (لفة ورق) End With ' طباعة التقرير DoCmd.OpenReport "InvoiceReport", acViewNormal DoCmd.PrintOut acPrintAll End Sub 3. تنسيق المحتوى للطباعة الحرارية أ. محاذاة النص: اضبط خاصية Text Align في مربعات النص إلى: Right للنصوص العربية. Left للأرقام. مثال لإضافة باركود: ب. إضافة باركود أو QR (اختياري): إذا كانت الطابعة تدعم الباركود، استخدم مكتبة خارجية مثل IDAutomation أو أنشئ صورة باركود في التقرير. ' إدراج صورة باركود في التقرير Me.ImageControl.Picture = "C:\Barcode\INV123.png" 4. قص الورق تلقائيًا (إذا كانت الطابعة تدعمه) بعض الطابعات تقص الورق بأمر ESC/POS. يمكن إرساله عبر VBA إذا كان هناك اتصال مباشر: Sub SendCutCommand() Dim prt As Object Set prt = CreateObject("WinSpool.WinPrinter") prt.DeviceName = "اسم الطابعة الحرارية" prt.Open prt.Write Chr$(29) & Chr$(86) & Chr$(0) ' أمر قص الورق prt.Close End Sub 5. نصائح مهمة اختبار الطباعة: استخدم Print Preview في Access قبل الطباعة الفعلية. تأكد من عدم قطع النصوص عند الحواف. الخطوط العربية: إذا ظهرت النصوص العربية كرموز غير مقروءة، استخدم خطوطًا تدعم Unicode مثل Arial أو Times New Arabic. البيانات الديناميكية: استخدم استعلام (Query) كمصدر بيانات للتقرير لملء الفاتورة تلقائيًا. مثال كامل لفاتورة بسيطة ' إنشاء فاتورة ديناميكية Sub GenerateInvoice() Dim report As Report Set report = CreateReport() ' إضافة عناصر إلى التقرير With report ' عنوان الفاتورة Dim lblTitle As Label Set lblTitle = CreateControl("InvoiceReport", acLabel) lblTitle.Caption = "فاتورة شراء" lblTitle.Top = 100 lblTitle.Left = 500 lblTitle.FontSize = 14 lblTitle.FontBold = True ' تفاصيل الفاتورة Dim txtDetails As TextBox Set txtDetails = CreateControl("InvoiceReport", acTextBox) txtDetails.ControlSource = "SELECT ProductName, Quantity, Price FROM InvoiceDetails" End With ' طباعة الفاتورة DoCmd.OpenReport "InvoiceReport", acViewPreview End Sub باستخدام هذه الإعدادات، يمكنك طباعة فواتير واضحة ومنظمة على الطابعة الحرارية مباشرة من Access VBA.

FirstOfmgmo: IIf([Forms]![frm_Reports]![termNum]=1,([qry_master].[FirstOfmgmo1]),IIf([Forms]![frm_Reports]![termNum]=2,([qry_master].[FirstOftotal]),([qry_master].[FirstOfdegExam2]))) طالع (Query1) بالمرفق والشرح . DD_2SAAD_TEST.rar

كل عام وجميع منتسبي منتدانا الغالي (أوفيسنا) بخير وصحة وعافية أعاده الله علينا وعليكم وعلى أمتنا الاسلامية بالخير واليمن والبركات.

تفضل استاذ @خالد جميل طلما طلبت اقصى تقدير 5 فواتير . اليك مرفق جديد وعند فتحه يوجد زر اسمه اقرأني أولاً . ووافني بالرد . وعيد اضحى مبارك على الجميع . MultiInvoic - PopUp.rar

واضح انك لديك فكرة معينة .... لكن بهذا البرنامج افتح أي عدد من الفواتير بواسطة الزر اضافة جديد ثم تنقل بينهم بواسطة الكمبوبكس لاضافة المنتجات أول للتعديل كما شئت وانا موضح ذلك بالشرح . أما غير ذلك كما قال معلمنا استاذ @ابوخليل ....... اذكر أقصى عدد للفواتير التي يمكنك فتحها على الشاشة

تفضل استاذ @خالد جميل هذا مشروع من عندي حتى لا ألخبط عملك ولكي يتم فتح أي فاتورة والتعديل عليها أو اضافة عنصر جديد . اليك المرفق والشرح . ووافني بالرد . DMultiInvoice.rar

مشاركة مع اخي @Foksh تفضل استاذ @2saad طلبك حسب مافهمت .ووافني بالرد . Data21-1.rar

تفضل استاذ @الميزار طلبك بعد التعديل . ووافني بالرد . Miraz-1.rar

بعد اذن استاذي @ابوخليل تفضل استاذ @الميزار طلبك حسب مافهمت . لكن انا زودت فولدر بجوار القاعدة (MyBooks) للناتج بعد التصدير . افتح الملف بتحصل كل طالب بورقة منفصلة اليك المرفق . ووافني بالرد . Miraz.rar

اخي الفاضل استاذ @منير ربيع هنا منتدى الاكسس فهل انت تريد منتدى الاكسل من هنــــــــــــــــا . أم تحويل مشروعك لأكسس .

مشاركة مع زملائي واحبتي تفضل استاذ @عاشق_الرقي محاولتي حسب مافهمت . نموذج تغيير الشعارات (frm_Logos) وكيفية استدعائهم بالنموذج (frm_Office_Data) والتقرير (Rpt_OfficeData). تفضل المرفق واذا حابب أي شئ زيادة انا حاضر . DDCompanyLogos.rar

تفضل اساذ @medolovekiri محاولة أخرى كما في الصورة أعلاه حسب ما فهمت مطبقاً على مرفق من عندي . اليك الشرح والمرفق .ووافني بالرد . DDMedoLoveKiri-2.rar

تفضل اساذ @medolovekiri محاولتي حسب ما فهمت مطبقاً على مرفق من عندي . اليك الشرح والمرفق . اما غير ذلك فلابد ارسال ماعندك من جداول ونماذج لنساعدك أكثر . DDMedoLoveKiri.rar

جزاكم الله كل الخير .

مشاركة بنفس ماتقدم به استاذنا @ابو جودي . بعد اذنه طبعاً NavigateForm (V2.1)-1.rar