/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
AddPrinterDriver problemer
Fra : Kasper Hansen [8270]


Dato : 09-03-04 14:40

Jeg forsøger at tilføje en printer til systemet, programmatisk. Jeg har
fundet ud af at jeg skal bruge bla. AddPrinterDriver.
Problemet er bare, at jeg ikke kan få det til at virke. Funktionen
returnerer False, og err.lastDLLError = 2 (File not found)


Private Declare Function AddPrinterDriver Lib "winspool.drv" Alias
"AddPrinterDriverA" (ByVal pName As String, ByVal Level As Long,
pDriverInfo As Any) As Long
Type DRIVER_INFO_3
cVersion As Long
pName As String
pEnvironment As String
pDriverPath As String
pDataFile As String
pConfigFile As String
pHelpFile As String
pDependentFiles As String
pMonitorName As String
pDefaultDataType As String
End Type


        Dim DI3 as DRIVER_INFO_3
        BP = "c:\\drivers\\"
        WinNT = true
Select Case WinNT
Case True
DI3.cVersion = 3
DI3.pConfigFile = BP & "ADOBEPSU.DLL" & Chr(0)
DI3.pDriverPath = BP & "ADOBEPS5.DLL" & Chr(0)
DI3.pEnvironment = "Windows NT x86" & Chr(0)
DI3.pHelpFile = BP & "ADOBEPSU.HLP" & Chr(0)
DI3.pDataFile = BP & "PDFCREATOR.PPD" & Chr(0)
Case Else
DI3.cVersion = 0
DI3.pConfigFile = BP & "ADOBEPS4.DRV" & Chr(0)
DI3.pDriverPath = BP & "ADOBEPS4.DRV" & Chr(0)
DI3.pEnvironment = BP & "Windows 4.0" & Chr(0)
DI3.pHelpFile = "BP & ADOBEPS4.HLP" & Chr(0)
DI3.pDataFile = BP & "DEFPRTR2.PPD" & Chr(0)
End Select
DI3.pName = "DOKITPS"
DI3.pDependentFiles = BP & "ADOBEPS5.DLL"
DI3.pDefaultDataType = "RAW"
DI3.pMonitorName = ""
msgbox AddPrinterDriver(Chr(0), 3, DI3)

Alle filerne jeg refererer til findes selvfølgelig, så hvad kan der være
galt? Er der et sted jeg kan tjekke, hvilke fil det er den ikke kan
finde?
Og er der en, der ved hvordan det kan løses på en anden måde, evt.?

På forhånd tak,

Kasper Hansen

 
 
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408921
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste