'********************************************* ' pannello di controllo stampanti '********************************************* Public Sub SettaPrinter(ByVal Printer As String) On Error Resume Next Shell(String.Format("rundll32 printui.dll,PrintUIEntry /y /n ""{0}""", Printer)) End Sub |