منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] تغيير الطابعه الافتراضيه عند الطباعه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] تغيير الطابعه الافتراضيه عند الطباعه (/showthread.php?tid=27509)

تغيير الطابعه الافتراضيه عند الطباعه - allo5_800 - 18-11-18

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

ارجو مساعدتي اريد عند عمل طباعه من البرنامج يقوم بتغيير الطابعه الافتراضيه وفور الانتها يقوم بارجاع الطابعه السابقه

وشكرا

RE: تغيير الطابعه الافتراضيه عند الطباعه - حريف برمجة - 18-11-18

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

http://vb4arb.com/vb/showthread.php?tid=27425&pid=131970#pid131970

RE: تغيير الطابعه الافتراضيه عند الطباعه - allo5_800 - 18-11-18

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

1- اضافة class 
كود :
Imports System.Runtime.InteropServices

Public Class Class1
   <DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)>
   Public Shared Function SetDefaultPrinter(hp As String) As Boolean
   End Function
End Class

2-تغيير  الطابعه الافتراضيه هذا عند الامر حيث my.settings.printers هو اسم الطابعه المراد وضعها افتراضيه

كود :
Class1.SetDefaultPrinter(My.Settings.printers)


تقبلو مني فائق الشكر والتقدير