تحديد طابعة الباركود لتكون هي الافترضية من خلال كود

[حسين العربى]

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

طبعا للعلم طلبي هذا لبرنامج طباعة ليبل الباركود

سؤالي هو

اريد كود داخل زر امر طباعة  يطبع لي في طابعه معينه ولنفترض الطابعة التي اريد الطباعة عليه من هذا البرنامج اسمها ZDesigner GC420d  

اريد عند الضغط علي الزر يطبع لي علي هذه الطابعة سواء كانت هي الطابعة الافتراضيه ام لا

ولو امكن جعل الكود يتحقق من اسم الطابعة عن طريق مربع نص في النموذج  وشكرا

[حسين العربى]

UP

[ابوخليل]

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long
Private Sub zerprint_Click()
SetDefaultPrinter ("ZDesigner GC420d")
DoCmd.OpenReport "reportName", acViewNormal
End Sub

علما انه يمكنك استبدال اسم الطابعة الظاهر  باسم مربع النص

استبدل  reportName  باسم التقرير  عندك

[حسين العربى]

استاذي ومعلمي الفاضل انه لشرف كبير لي ان تزور موضوعي وهذا يسعدني جدا والله الف شكر لك استاذي الفاضل

انا جربت الكود ولم يظبط معي الظاهر اني في شي موصحيح 

 

طبعا انا اريد الكود داخل العلامه الحمراء قبل امر الطباعة


انا مرفق لحضرتك نسخة من البرنامج بها فورم واحد به زر الامر الذي اريد بداخله الكود للتجربه عليه

 

22222.rar

[ابوخليل]

تفضل

مع بعض اللمسات 

3.rar

[حسين العربى]

الف شكر استاذي ومعلمي الفاضل جزاك الله خيرا وجعله الله في ميزان حسناتك

زادك الله من علمه 

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

الفكره من ذلك اني عندي عدة طابعات 

وشكرا

[ابوخليل]

تفضل .. بهذا السطر تختار الطابعة من غير التأثير على الطابعة الافتراضية

Set Application.Printer = Application.Printers("ZDesigner GC420d")
DoCmd.OpenReport "rebots101", acViewNormal

 

[حسين العربى]

اعجز عن الشكر استاذي ومعلمي الفاضل جزاك الله خير وزادك الله من علمه

هذا هو المطلوب 

 

[حسين العربى]

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

 

[ابوخليل]

لو اعلنا عن قيمة الحقل كمتغير نصي  سيقبل

Dim iprt As String
iprt = Me.prnt1
Set Application.Printer = Application.Printers(iprt)
DoCmd.OpenReport "rebots101", acViewNormal

 

[حسين العربى]

6 دقائق مضت, ابوخليل said:

لو اعلنا عن قيمة الحقل كمتغير نصي  سيقبل

Dim iprt As String
iprt = Me.prnt1
Set Application.Printer = Application.Printers(iprt)
DoCmd.OpenReport "rebots101", acViewNormal

 

مشاء الله عليك استاذي الفاضل ربنا يحفظك 

كده تمام ظبطت

تم تعديل أبريل 30, 2018 بواسطه حسين العربى

[TAMER AGOOR]

السلام عليكم اخواتى الكرام

 

[TAMER AGOOR]

Private Sub Command34_Click()
On Error GoTo Err_Command34_Click

    Dim stDocName As String
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    stDocName = "stool"
    DoCmd.OpenReport stDocName, acNormal

Exit_Command34_Click:
    Exit Sub

Err_Command34_Click:
    MsgBox Err.Description
    Resume Exit_Command34_Click
End Sub

ده زرار امر طباعه عندى .. ازاى بقا ادخل كود اختيار الطابعه اللى مكتوب هنا ده

 

[ابوخليل]

عليكم السلام

ما نظام التشغيل لديك ؟  32 ام 64

 

[ابوخليل]

اذا نظامك 32 الصق في اعلى الصفحة في محرر الفيجوال هذا السطر :

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

واذا نظامك 64 الصق السطر هذا :

Private Declare PtrSafe Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

ثم استبدل كودك بهذا :

Private Sub Command34_Click()
On Error GoTo Err_Command34_Click
  
Dim stDocName As String
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  '========================================
   SetDefaultPrinter ("اكتب اسم الطابعة هنا") 
  '===========================================
stDocName = "stool"
    DoCmd.OpenReport stDocName, acNormal

Exit_Command34_Click:
    Exit Sub
Err_Command34_Click:
    MsgBox Err.Description
    Resume Exit_Command34_Click
End Sub

 

[النجاشي]

26 دقائق مضت, ابوخليل said:

عليكم السلام

ما نظام التشغيل لديك ؟  32 ام 64

 

السلام عليكم ورحمه الله

 استاذنا الفاضل ابو خليل

بارك الله فيك ياليت تعمل مثال مصغر 

بالنظامين32و64

بارك الله فيك

تحياتي اليك يالغالي

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

وصلت الفكره

 

 

 

تم تعديل ديسمبر 14, 2020 بواسطه النجاشي

[ابوخليل]

المنتدى مليء بالمواضيع التي تتحدث عن هذا فقط ابحث 

وهذا واحد منها

[النجاشي]

استاذنا الفاضل معذرتا يالغالي 

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

السوال اذا اردت ان يرجع إلي الطابعه السابقه

 

شاكرين يالغالي

 

 

[ابوخليل]

انظر في هذا الموضوع

وهذا الموضوع كيف تعرض طابعاتك في قائمة وتختار منها الطابعة الافتراضية 

[النجاشي]

20 ساعات مضت, ابوخليل said:

انظر في هذا الموضوع

وهذا الموضوع كيف تعرض طابعاتك في قائمة وتختار منها الطابعة الافتراضية 

بارك الله فيك استاذي الغالي 

مشكورررررر 

[Dofreelancer]

On 5/1/2018 at 12:14 AM, حسين العربى said:

مشاء الله عليك استاذي الفاضل ربنا يحفظك 

كده تمام ظبطت

مرحبا

ممكن تبعت نسخة من برنامج المطعم الخاص بالكاشير 

و شكرا جزيلا 

[Eng.Qassim]

27 minutes ago, Dofreelancer said:

مرحبا

ممكن تبعت نسخة من برنامج المطعم الخاص بالكاشير 

و شكرا جزيلا 

اخي العزيز لايوجد برنامج جاهز .. حاول ان تعمل برنامجك واي سؤال ان شاء الله محد يقصر معاك