Hej alla, ibland så får jag i uppdrag att lägga in en skrivare på ex 10 datorer, detta e ju rätt trist, min undran: Kan jag via vb lägga till skrivare och i så fall: kan jag göra det remote?

Idé: Ansluta datorer via registret, sedan installera skrivaren EN gång och då på alla samtidigt.


Såg på MS sida att det finns nått API som heter "AddPrinterDriverEx", är det någon som vet hur man ska göra? Det som står på MS sida hajjar jag inte tyvär.

MVH / Benny- som försöker komma enklare undan...:-)

Inga tips?

Ska inte Microsoft hålla till här? Dom borde väl kunna svara på detta?

/Benny

Hej
Nog ingen som vågar,du blir ju arg när du inte förstår svaren :-)
/Sven

Hej på dig Sven, jag blir bara arg när jag får svaret att hålla på med frimärken:-)

Har DU nånsin hört talas om "addprinterDriverEX"-API:et?

Du har kanske en länk till en sida som talar om hur man tolkar API:er? Eller finns det nån kurs på Pellesoft?
Kan jag tolka API:er så kan jag nog lösa mycket själv.

Tataaaa

Hej Benny,

Prova exemplet från följande sida:

http://www.vb2themax.com/Item.asp?PageID=CodeBank&ID=388

Hoppas det hjälper

Micke - Microsoft

Hej, va kul att MS kom till räddning :-)

En undran, är API anrop det samma som när jag anropar en DLL?

Ja det är samma sak. För att från en applikation anropa en funktion i en annan dll använda API för att säga hur funktionen skall kallas och med vilka parametrar.

Då blev det en "Aha-upplevelse" Pelle ;-)

Tack grabbar.

Det jag fick av MS-killen va bra, däremot så gällde det lokalt på datorn, om jag förstod det rätt. Jag är oxå ute efter att göra det remote på nått vis.

Har testat MS-killens tips men det blir ingen installation lokalt, vad missar jag tro?

i CLASS1:
<code>
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

' Install a new printer on the system
' sPrinterName is the name to assign to identify the printer
' sDriver is a string identifying the driver for the printer
' sPort is the printer's COM port
' sComment is a comment to associate to the printer item
'

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
</code>

i form:
<code>
Dim a As New Class1
Dim bOK As Boolean

bOK = a.InstallPrinter("Epson", "Epson Stylus COLOR 440", "LPT1:", "datornamn??", "My favourite printer")
MsgBox "Printer added: " & bOK
</code>

får "false" i msgboxen"



/Benny

Hej.

http://www.microsoft.com/ntworkstation/downloads/Recommended/Featured/NTZAK.asp

I detta paket finns en .exe-fil som heter "con2prt.exe". Denna fil tar emot olika kommandon.
T.ex:

con2prt.exe /c \\elpamaps1.domain.se\elpamapr04

Kolla om det kan vara något...

//fredda

"http://www.microsoft.com/ntworkstation/downloads/Recommended"


Detta ser ut att kosta pengar.

Nåja, det löser sig.