Driver stampante....

[md76]

Salve, dovrei farmi un programma che mi installi automaticamente una stampante GENERICA SOLO TESTO e alla fine dell'installazione la rinomini con un nome a mio piacimento. Questo programma dovrebbe funzionare esclusivamente su WIN XP e 2000. Secondo voi e' una cosa fattibile oppure no ? Se si, dove posso trovare della documentazione in merito o degli esempi. Dimenticavo programmo in VB6.

Grazie anticipatamente a tutti quelli che vorranno aiutarmi.

[xegallo]

prova a vedere questo link
http://www.devx.com/vb2themax/Tip/19284

mi pare richieda i privilegi di admin

[md76]

Grazie infinite del link, il pezzo di codice sembra proprio quello che serve a me, pero' mi restitutisce sempre un msgbox che mi segnala che non e' riuscito ad installare la stampante. Chiaramente sto lavorando come Admin. Hai qualche idea .
Comunque 1000 grazie, adesso faro' delle altre prove, anche se non c'e' ne sonom oltissime da fare.

[md76]

....ma mi restituisce sempre il msgbox che non e' riuscito ad installare la stampante. Mi potete aiutare un secondo ? G R A Z I E.

[md76]

Probabilmente, anzi quasi sicuramente sbaglio io qualcosa:

allora:..................



'QUESTO PRIMO PREZZO LO INSERISCO NELLE DICHIARAZIONI

Private Type PRINTER_INFO_2
pServerName As String
pPrinterName As String
pShareName As String
pPortName As String
pDriverName As String
pComment As String
pLocation As String
pDevMode As Long
pSepFile As String
pPrintProcessor As String
pDatatype As String
pParameters As String
pSecurityDescriptor As Long
Attributes As Long
Priority As Long
DefaultPriority As Long
StartTime As Long
UntilTime As Long
Status As Long
cJobs As Long
AveragePPM As Long
End Type

Private Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" _
(ByVal pName As String, ByVal Level As Long, pPrinter As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As _
Long) As Long


'FINE DICHIARAZIONI

================================================== ====================


'QUESTA E' LA FUNZIONE

Function InstallPrinter(ByVal sPrinterName As String, ByVal sDriver As String, _
Optional ByVal sPort As String = "LPT1:", Optional sServer As String, _
Optional sComment As String) As Boolean
Dim hPrinter As Long
Dim PI As PRINTER_INFO_2

' fill the PRINTER_INFO_2 struct
With PI
.pPrinterName = sPrinterName
.pDriverName = sDriver
.pPortName = sPort
.pServerName = sServer
.pComment = sComment
.pPrintProcessor = "WinPrint"
.Priority = 1
.DefaultPriority = 1
.pDatatype = "RAW"
End With

' add the printer
hPrinter = AddPrinter(sServer, 2, PI)
' if successful close the printer and return True
If hPrinter <> 0 Then
ClosePrinter hPrinter
InstallPrinter = True
End If

End Function

'FINE DELLA FUNZIONE

================================================== ====================

'QUESTO PEZZO DI CODICE LO INSERISCO NELL'EVENTO Click DI UN BOTTONE

Dim bOK As Boolean

bOK = InstallPrinter("Epson", "Epson Stylus COLOR _ 440", "LPT1:", , "My favourite printer")

MsgBox "Printer added: " & bOK

================================================== ===================

Risultato: mi restituisce sempre il msgbox con scritto installaz. fallita.

Dove sbaglio ?

[xegallo]

non è che sei proprio nuovo dovresti saperlo che esiste il tag code che così come l'hai scritto diventa difficile

[md76]

Scusami, hai pienamente ragione, sono stato un pir.a, ma e' che purtroppo da 2 gg sto sbattendo la testa dosso sto problema e magari poi scopro che e' na cavolata pero' intanto non va...... .

[md76]

non riesco a venirve fuori, se potete buttate l'occhio anche voi ?

[xegallo]

Originariamente inviato da md76
non riesco a venirve fuori, se potete buttate l'occhio anche voi ?

"io posso solo indicarti la soglia sei tu che devi attraversarla "



volentieri ma non posso non sono admin della mia macchina

[optime]

da' un'occhiata qui http://www.experts-exchange.com/Prog..._20807889.html