اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

سؤالي هو

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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  باسم التقرير  عندك

  • Like 1
  • Thanks 2
رابط هذا التعليق
شارك

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

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

 

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


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

 

22222.rar

333.png

رابط هذا التعليق
شارك

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

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

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

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

وشكرا

رابط هذا التعليق
شارك

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

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

 

  • Thanks 1
رابط هذا التعليق
شارك

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

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


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

 

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

كده تمام ظبطت

تم تعديل بواسطه حسين العربى
رابط هذا التعليق
شارك

  • 2 years later...

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 الصق في اعلى الصفحة في محرر الفيجوال هذا السطر :

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

بارك الله فيك

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

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

وصلت الفكره

 

 

 

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

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

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

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

 

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

 

 

رابط هذا التعليق
شارك

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

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

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

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

مشكورررررر 

رابط هذا التعليق
شارك

  • 7 months later...
27 minutes ago, Dofreelancer said:

مرحبا

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

و شكرا جزيلا 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information