Urgent Problem With AddPrinter API

[Cedric_Malache]

I would like to add a printer with the addprinter api but:

Here is the declaration in C++:
HANDLE AddPrinter( LPTSTR pName, // pointer to server name
DWORD Level, // printer info. structure level
LPBYTE pPrinter // pointer to structure);

here is my declaration in VB:
Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" (ByVal pName As String, ByVal Level As Long, pPrinter As any) As Long

I call the API like that, before I have fill in the Printer_Info_2 structure:

ReturnValue = AddPrinter("", 2, PrtInfo)

Return Value is a long, PrtInfo is a Printer_Info_2 structure.

But this API doesn't work at all, I think there is a problem with the pPrinter parametre but I'm not sure...
Does someone help me quick please???
Thank You

Because PrtInfo is a structure, when you pass it you're passing a pointer to the first item in the structure (I think), rather than a pointer to the structure of pointers. Try passing the address explicitly like

Dim ptrPrinter as long
ptrPrinter = ObjPtr(PrtInfo)
ReturnValue = AddPrinter("", 2, ptrPrinter)

[Cedric_Malache]

I have tried to pass the address like you wrote it here but it seems that the ObjPtr() function doesn't accept my PrtInfo structure, when I Lauch the Api VB make a type mismatch error.
I'm almost sure you're right, I have to pass the address but
how can I do that if the ObjPtr() function doesn't work???
Thank You.

Sorry, It's one of these:

VarPtr - Returns the address of a variable.

VarPtrArray - Returns the address of an array.

StrPtr - Returns the address of the UNICODE string buffer.

VarPtrStringArray - Returns the address of an array of strings.

ObjPtr - Returns the pointer to the interface referenced by an object variable.

John