[allo5_800]

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

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

وشكرا

[حريف برمجة]

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

http://vb4arb.com/vb/showthread.php?tid=...#pid131970

[allo5_800]

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

---

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

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)

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