[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)

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