[VB] oggetto printer

[keeper76]

Data una lista di stampanti installate nel mio sistema (Win98) è possibile selezionare quale voglio impostare come stampante predefinita ?

Grazie 1000

[Nico]

Perchè dovresti farlo da VB?

[steno12]

crea un nuovo progetto.vbp vuoto :

interfaccia grafica:
una combo1
un command1
una tex1 con proprietà multiline ugale a true
una label1.caption

poi incolla questo codice:
'---------tagia da quì-------------------
Private Sub Combo1_Click()
Dim X As Printer
For Each X In Printers
If X.DeviceName = Combo1.Text Then
' Imposta la stampante come predefinita di sistema.
Debug.Print X.DriverName
Set Printer = X
Exit For
End If
Next
End Sub

Private Sub Command1_Click()
Printer.Print "la stampante selezionata è la seguente " & Printer.DeviceName
Printer.Print "Ten Walter - http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/"
Printer.Print Text1.Text
Printer.EndDoc
End Sub

Private Sub Form_Load()
'processo di enumerazione delle stampanti.
'trasferisce i nomi delle stampanti all'oggetto combo
label1.caption="http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/"
Dim X As Printer
For Each X In Printers
Combo1.AddItem X.DeviceName
'Set Printer = X
If X.TrackDefault = True Then
' Imposta la stampante come predefinita di sistema.
'Set Printer = X
' Interrompe la ricerca di una stampante.
Combo1.Text = X.DeviceName
'Exit For
End If
Next
'fine del processo di enumerazione
'setta anche l'oggetto combo in modo che segnali la stampante predefinita
End Sub

Private Sub Label1_Click()
Call HyperJump(Label1.Caption)
End Sub
'---------a quì--------------------------


aggiungi un modulo1.bas al tuo progetto
copia questo nel tuo modulo.bas:

'-------taglia da quì--------------------
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal _
nShowCmd As Long) As Long

Public Function HyperJump(ByVal URL As String) As Long
HyperJump = ShellExecute(0&, vbNullString, URL, _
vbNullString, vbNullString, vbNormalFocus)
End Function
'-------------a qui----------------------------





link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp