تغير الطابعه الافتراضيه

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

اخي يمكنك استخدام الاجراء التالي

Public Function SetPrinter(ByVal prtName As String) As Boolean

        Dim s As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim m As Microsoft.Win32.RegistryKey

        m = s.OpenSubKey("Software")
        m = m.OpenSubKey("Microsoft")
        m = m.OpenSubKey("Windows NT")
        m = m.OpenSubKey("CurrentVersion")
        m = m.OpenSubKey("Windows", True)
        m.SetValue("Device", prtName & ",winspool,FILE:")

        m.Flush()
        m.Close()
        s.Close()

    End Function

وللفائدة يمكنك الاطلاع على الروابط التاليه

http://www.emoreau.com/Entries/Articles/2005/03/Setting-Windows-default-printer.aspx

http://www.xtremevbtalk.com/archive/index.php/t-291465.html