اكثر من طابعة

[ahmedspcc]

السلام عليكم ورحمة الله وبركاته وبعد

ايه الاخواة الكرم كيف

استطيع ان استخدم اكثر من طابعة في برنامجي ؛ وذلك ولوجود اكث من نوع للورق ( مقس مختلق ورق A4 - A5 )هل استطيع ان اطبع هذا التقرير على هذه الطابعة وذك التقرير على تلك الطابعة . هل ذلك ممكن جزكم الله خير .

اخوكم

[move]فرحان منطنط المسروري

[ashraf]

أنا عامل ما يلي وقد يفيدك :

1- طابعة ابسون لطباعة فواتير .

2- طابعة ليزر hp لطباعة التقارير .

3- مشترك تقريبا سعره 60 ريال بالكابل الخاص به .

4- الطابعة ابسون متصلة بـlpt1 بالمشترك .

5- الطابعة اليزر lpt2 بالقسام .

6- يوجد بالقسام زر تحويل بين الطابعيتن . ( a - b )

أخيرا عندما اختارالطابعة ابسون اجعل المشترك على a وعندما اختار الطابعة الليزر اجعل المشترك على b .

لعل هذا يفيدك أخي فرحان وتفرحنا معاك .

أشرف خليل

[ahmedspcc]

الاخ العزيز جدا/ اشرف خليل المحترم

السلام عليكم ورحمة الله وبركاته وبعد

اشكرك اخي العزيز على هذا الرد وهذا غير مستغرب من انسان مثلك انت مشهود لك من الجميع بحب الخير للجيمع بارك الله فيك اخي العزيز ولكن ، انا اقصد من خلل البرنامج وليس من خلل قسام خارجي ، جزاك الله خير اخي عني .

اخوك

فرحان منطنط المسروري

[عصام ربيع]

اخى الفاضل احمد

اعتقد ان هذا ممكن عن طريق فتح التقرير فى المعاينة ثم الذهاب الى قائمة ملف ثم طباعة ثم تحديد إسم الطابعة المراد طباعة التقرير من خلالها.. ويكرر هذا لكل تقرير على حده .. والله اعلم

تم تعديل أبريل 7, 2004 بواسطه عصام ربيع

[ashraf]

طيب اليك حل آخر إذا كنت تعمل على أكسيس 2002

Dim prt As Printer
' تعبئة مربع السرد بالطابعات المتوفرة .
 Me!cboPrinter.RowSourceType = "Value List"
    For Each prt In Application.Printers
        Me!cboPrinter.AddItem Item:=prt.DeviceName
    Next prt

 ' للحصول على الطابعة الافتراضية.
    strDefaultPrinter = Application.Printer.DeviceName
 ' غير مربع السرد الى الطابعة الافتراضية.
    Me!cboPrinter = strDefaultPrinter

 ' احصل على كائن الطابعة حسب اختيار المستخدم من مربع السرد.
    Set prt = Application.Printers(Me!cboPrinter.Value)

  ' معاينة التقرير .
    DoCmd.OpenReport ReportName:="ReportName", View:=acViewPreview
    
    'تغيير طابعة التقرير المعروض الى الطابعة التى اخترناها .
    Reports(ReportName).Printer = prt

الكود من حلول الأخ أبو لمى ( مشرف سابق بالفريق العربي )

***********************

بعدين فيه فكرة أخرى : عند تصميمك للتقرير يمكن وضع طابعة افتراضية تصمم عليها لتقرير وهذا المثال قد يفيدك .

أشرف خليل

____________.zip

[ahmedspcc]

اخي العزيز اشرف خليل المحترم

اخي العزيز عصام ربيع المحترم

السلام عليكم ورحمة الله وبركاته وبعد

ايه الاخوة الكرم بارك الله فيك لقد تم حل المشكلة بفضل الله ثم بفضل مشاركتكم اسئل الله ان يرفع قدركم ويبارك فيكم انه سميع الدعاء مجيب

اخوك

فرحان منطنط المسروري