تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] في الطباعة على الطابعة الافتراضية للبرنامج
#1
Question 
Smile السلام عليكم و رحمة الله Smile

Blush امل المساعده Blush

في الطباعة على الطابعة الافتراضية للبرنامج

مرفق فروم لتحديد الطابعة الافتراضية للبرنامج

تم التعديل عليه مسبقا من العضو VB_Coder و كل الشكر و العرفان له

المطلوب Big GrinBig Grin

طابعة الداتا ربورت رقم 1 بشكل مباشر دون عرضه على الطابعة الافتراضية للبرنامج

ليس الطابعة الافتراضية لنظام التشغيل لكون يوجد اكثر من طابعة متصله بالجهاز


Blush امل المساعده Blush


الملفات المرفقة
.rar   الطابعة الافتراضية للبرنامج.rar (الحجم : 48.92 ك ب / التحميلات : 56)
الرد }}}}
تم الشكر بواسطة:
#2
.....

مشكلة DataReport أنه لا يملك خاصية تحديد طابعة مختلفة عن الطابعة الافتراضية لنظام التشغيل (ولا يصلح استخدام الطابعة الافتراضية للبرنامج)
إلا من خلال عرض التقرير (وهذا ما لا تريده كما في سؤالك) لذا.....
هناك حيلة تغيير الطابعة الافتراضية لنظام التشغيل مؤقتاً باستخدام دالة API
لحين إصدار أمر طباعة التقرير بدون عرضه ثم إعادة الطابعة الإفتراضية لنظام التشغيل كما كانت.
غير اسم الطابعة الموجود في الكود ("Test Printer") إلى اسم الطابعة التي تريدها.
كود :
Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long
Private Declare Function GetDefaultPrinter Lib "winspool.drv" Alias "GetDefaultPrinterA" (ByVal sPrinterName As String, lPrinterNameBufferSize As Long) As Long


Private Sub Command1_Click()
    ' الاحتفاظ باسم الطابعة الافتراضية الخاصة بالنظام
    Dim SysDefPrinter As String: SysDefPrinter = Space$(255)
    If GetDefaultPrinter(ByVal SysDefPrinter, 255) <> 0 Then SysDefPrinter = Left(SysDefPrinter, 255 - 1)
    Dim PrtIndex As Printer: For Each PrtIndex In Printers
        If PrtIndex.DeviceName = SysDefPrinter Then SysDefPrinter = PrtIndex.DeviceName
    Next
    
    
    
    ' تغيير الطابعة الافتراضية للنظام - مؤقتاً - إلى طابعة محددة من البرنامج
    SetDefaultPrinter "Test Printer"
    
    
    ' إصدار أمر الطباعة للتقرير إلى الطابعة مباشرة بدون عرض التقرير
    DataReport1.PrintReport False
    
    
    
    ' إعادة الطابعة الافتراضية الخاصة بالنظام التي احتفظنا باسمها في البداية
    SetDefaultPrinter SysDefPrinter
End Sub

.....
الرد }}}}
تم الشكر بواسطة: allayl , VB_Coder
#3
شكرآ اخي بارك الله فيك و زادك في علمك من واسع فضله
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن الطباعة من الفجول بيسك 6 في الأكسل او الورد refathafez 1 192 05-09-17, 05:53 PM
آخر رد: sher
  [ تمّ الحل ] : الطباعة حسب نتائج الفلترة عبد العزيز البسكري 4 296 28-07-17, 01:28 AM
آخر رد: IBRA939
  [مثال] كيفية وضع ايقونة للبرنامج بجوار الساعة أبوسعود 2 195 08-07-17, 02:14 AM
آخر رد: أبوسعود
  اضافة واجهة للبرنامج ببرنامج باور بوينت المبرمج العتيق 8 337 22-06-17, 03:41 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] هل من حل حول الطباعة في ActiveReport عبدالقادرعواد 4 231 19-03-17, 03:48 PM
آخر رد: sendbad100
  [ تمّ الحل ] : الطباعة بالأكتيف ريبورت عبد العزيز البسكري 16 832 20-12-16, 10:05 PM
آخر رد: عبد العزيز البسكري
  عمل فلترة بحث للبرنامج haniblack 4 475 21-11-16, 08:05 AM
آخر رد: sendbad100
  [vb6.0] ارجو التكرم بمثال ( الطباعة تكون بحسب بيانات حقل معين ) iisys 0 300 09-10-16, 07:47 PM
آخر رد: iisys
Exclamation أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة sniperjawadino 10 1,560 06-10-16, 05:51 PM
آخر رد: Amir_alzubidy
  مساعدة في كود الطباعة Mo_rb 5 554 07-07-16, 06:17 PM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم